perl -e 'print chr(ord()+1) foreach(split //,`cat file.pl`);'

##</code><code>##

perl -e '@lines=`cat file.pl`;print $#lines,"\n", $lines[2];'