This is my first obfu. I think it may be a little to easy to figure out, because i'm not very comfortable with more complex commands such as map, which i've seen a lot of in obfuscated code.

Anyways, I'm not just another perl hacker, i'm...

#!Perl


$t='';for           (a..z){push  @l
,$_};$_='           1021192012012625'
;print"\n"          ;@i=split/(\d{2})/
;for(  1..          ($#i-3)+sqrt 9)
{  unless           ( $_ % 2 ==  0)
{push  @o,          $i[$_]}};   for
(@o){  $t           .=$l[$_-1]}; ;
@l= split           /(.{4})/,$t,2;
print'=>',          reverse($l[2],
' ',$l[01           ]),"\n";#$@i );
[download]

-munchie
Look ma! I'm on CPAN!