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