perl -sale '$hackneyed="perl -e";$foryou=q+"print 11**2,31415_01000,9*10,9*9,13*4,join("0",split //,"53412345",9),1171,9*9,9,10**2,16*19"+;$cheap=`$hackneyed $foryou`;$foryou=cheap;cheap;$obfuscated=$foryou;print join"",map{substr("A Perl Monk Just Hacked This",$_,1)}$cheap&&(not$very)&&$$obfuscated=~m;(e|\S\S|a);g;;e'