We can remove those lines($ora_errstr="";) but it needs lot of effort.
How much effort is it to do this?
perl -i.bak -pe 's/(\$ora_errstr="";)/\# $1/' *.pl
That assumes all your perl script files have a ".pl" extenstion; if that's not the case, just create a simple plain-text list of the names of the script files to be edited, and do it like this:
xargs perl -i.bak -pe 's/(\$ora_errstr="";)/\# $1/' < file.list
(xargs is a standard unix tool; it you're using ms-windows, just get one of the windows ports of unix tools)
Of course, it sounds like a more profound rewrite might be in order, to get away from the old oraperl paradigm, but just removing the offending line from your scripts might get things running well enough that stuff will work while you hammer out the next version of your code.
