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