die($_=sub{open($_,$0);read($_,$_,40);@_=split('');47; @_=map{chr(ord(shift(@_))+$_)} qw( -35 3 7 -8 85 16 56 -1 -85 13 -25 -9 5 14 -11 57 80 10 67 74 -16 56 55 -13 -69 1 1 68 75 15 59 -4 21 67 -20 69 74 -27 -31 -85);join('',@_);}->("Just another Perl Hacker"));
Edit: chipmunk 2001-06-01
In reply to *Yawn*, more late night obfu. by lindex
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |