This case, just use the shell:

perl -i -e 's|/usr/bin/perl|/test/test/test|g;s|/ggg/ggg/www|/zzz/zzz/
+zzz|g;s|/jjj/jjj/jjj|/aaa/aaa/aaa|g; ' /main/script.pl `find /path/to
+/pl/files/ -type f`
[download]

FYI, there's File::Find in the standard perl distribution ... and i personally like File::Find::Rule