root/trunk/afick/fixperl.sh

#!/bin/sh

files=$(ls *.pl)

for file in $files
do
        echo "sed 's/\/usr\/bin\/perl/\/usr\/local\/bin\/perl/' $file > foo"
        sed 's/\/usr\/bin\/perl/\/usr\/local\/bin\/perl/' $file > foo
        echo "mv foo $file"
        mv foo $file
done