Help for this page
perl -i.bak -pe 's/(\$ora_errstr="";)/\# $1/' *.pl
xargs perl -i.bak -pe 's/(\$ora_errstr="";)/\# $1/' < file.list