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

$b="Just another Perl hacker.\nd";$c=uc join'', (split//,$b)[5,1,3,7,16,7,19,26]; chop $b;sub a{$b};eval join'=',map"*$_",qw($c a); print _Obfuscation_();