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;p
+rint join"",map{substr("A Perl Monk Just Hacked This",$_,1)}$cheap&&(
+not$very)&&$$obfuscated=~m;(e|\S\S|a);g;;e'
[download]

-sauoq
"My two cents aren't worth a dime.";