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