[FWP] My first japh

[Larry Shatzer <lshatzer@islanddata.com>]

Title: My first japh

Well, not really first attempt, just first one where I got some of co-workers and friends stumped at what I did.

$_='$wHFGnABGUREcREYuNPXREnAQyNEEL="larry"';s/^\$(\S+)=(")(\S+)(\2)$/
($foo=($foo=$1))=~s,((?:n|c|u|y).), $1,g/ex;@j=split(//,$3);$i=0;
map{$j[$i]=chr(($j[$i]=ord($j[$i]))+=$_);$i++}qw(4 17 -9 -4 -5);
$print=join("",@j);$foo=~y|A-Za-z|n-za-mN-ZA-M|;$japh="$2$foo.\n$4;";
eval"$print $japh";