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

It was this interesting meditation that gave me the idea for the following: 
$_                       # Side Comment Japh -- by liverpole
= q ? @                  # = qw
                         # --Just-another-Perl-hacker,-- # ;
map { print "$_-" } @    # ?; y|-\n | |d; eval

[download]
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Back to Obfuscated Code