Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses   by Mr. Muskrat (Abbot) on Dec 21,
2002 at 21:01 UTC ( #221668=obfuscated: print w/ replies, xml )
Need Help??  The original concept was dreamed up by ybiC. He
wanted to write an obfu that was a play on his nick (every
letter lowercase except for the last). He also wanted to play
with the normal "Just Another Perl Hacker" so I give you...
#!/usr/bin/perl -0777 use strict;use warnings;
$_=<DATA>;s/\s+//g;sub ject{$_?10-$_:$_}; # of my affections sub
let{join'',grep{y(a-z A-Z\0) # rent out something you are +
renting {n-za-m N-ZA-M\0}}split//,$_[0]}; # take the whozit with
you sub way{join' ',map{$_=substr # Eat fresh(TM)
$_,0,-2;join'',reverse split # /me waves his hand as he s +ays
/\0/,$_}split / /,$_[0]};$_=terfuge($_); # This is not the code
you a +re looking for sub vert{scalar reverse split//,$_[0]}; #
To destroy completely; rui +n sub tle{$_[0]=~y/a-zA-Z/A-Za-z/; #
elusive; crafty or sly; de +vious return $_[0]};$