perl -i.bak -pe 's/(\$ora_errstr="";)/\# $1/' *.pl