http://www.imagemagick.org/script/perl-magick.php

Ich denke, Du kannst praktisch das Original lesen ($magick->Read($file)) und dann mit ->Get("width") die Breite auslesen. Dann drüberloopen mit deinen entsprechenden Werten und mit Composite jeweils aus dem Bild einen Teil in ein neues Bild kopieren (Du könntest auch immer clonen + croppen, aber ->new() + Composite sollte effizienter sein).