couldn't you just run the script with &2>err.tmp and just search err.tmp? i'll learn this unix thing yet.

perl -e'@a=split//," \n/)\"={\"";print $a[$_] for split//,"00002731000223155264555102401"'