Perlmonk code
Obfuscated Code
(Recursive || Not) Japh Spidering
Jugando con caracteres hermanos, entre hermanos podemos hacer algo grande
#!/usr/bin/perl
@_=('(','2','`','+','#','!','(',' ','`','2'
,'`','`',' ' ,'2','`','(','`','/','.' ,'!',
' ','`','3','`','*');@__=('$','`','%' ,'@',
'`','@','`',' ' ,',','`','%', '0',' ', '`',
'%' , '`','4','`' ,'@','@',' ','4','`','5',
'`'); _(\@_,\@__) ; sub _{print pop@{$_[0]}
|pop@{$_[1]}; _($_[0] ,$_[1]) if @{$_[0]};}
