http://www.perlmonks.org?node_id=220695

Here's my first attempt at a JAPH...
$_=qq/ 7 4 9 3 9 117 93911 5 9 3911693 9 3 2 9 3 9 6 5 9 3 9 1 1 0 9 3 9 11193 9 1 1 6 9 3 9 104 939101 9 3 9 1 1 4 9 3 9 3 2 9 3 9 8 0 9 391019 391149 3 9 108 93932 9 3 9 7 2 9 3 9 9 7 9 3 9 9 9 9 3 9 1 0 7 9 3 9 1 0 1 9 3 9 1 1 4 /; s/\s+//g; $allmighty+=ord foreach qw/A l l m i g h t y/; print chr foreach split $allmighty;
-Allmighty