perl -p -i.bak -e 's/^(#!.*perl)/$1 -w/' *.pl