I've also written a ny.pm oriented JAPH. Feel free to try it out (from a command line on a system with Perl installed, anyway):
perl -e '$_ = (join "", (map (chr, (shift =~ /.../g))));print "$_\n";' 106117115116032097032110121032112101114108032104097099107101114
Unsurprisingly, brian d foy
, founder of Perl
Mongers has come up with a (slightly) faster
version, albeit perhaps less unobvious (YMMV):
perl -e 'print +(join "", (map (chr, (shift =~
/.../g)))), "\n";' 106117115116032097032110121032112101114108032104097099107101114
And here's another little non-geographically oriented one:
perl -e 'print "Just another P$0-r-l hacker"'