#!/bin/sh
PERL=$1
for file in `find . -name '*.pl'`
do
    perl -i -ape 's/^#!\s*(.*perl)\s*(.*)$/#!$ENV{PERL} $2/;' $file
done