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

##</code><code>##

 xargs perl -i.bak -pe 's/(\$ora_errstr="";)/\# $1/' < file.list