find -name '*.pl' . exec perl -pi.boo -e 's*(^#!/[\w/]+/perl)$*$15.005
+*' {};
[download]

'nough said ;^}