#!/usr/bin/perl @_=('(','2','`','+','#','!','(',' ','`','2' ,'`','`',' ' ,'2','`','(','`','/','.' ,'!', ' ','`','3','`','*');@__=('$','`','%' ,'@', '`','@','`',' ' ,',','`','%', '0',' ', '`', '%' , '`','4','`' ,'@','@',' ','4','`','5', '`'); _(\@_,\@__) ; sub _{print pop@{$_[0]} |pop@{$_[1]}; _($_[0] ,$_[1]) if @{$_[0]};}

Replies are listed 'Best First'.
Re: Brothers Vars
by ZlR (Chaplain) on Apr 07, 2005 at 10:24 UTC
    ah, here's my decoding of it :)

    Cheers,
    Z

      Yes , in resume. The Recursive sub "_" is a luxury. The true interesting is "|" operator and char in left and right. example. perl -e "print ('$'|'(')"; => "," The operator |produce in some case other symbol, according to brothers. It is fun.
Re: Brothers Vars
by starbolin (Hermit) on Apr 07, 2005 at 06:06 UTC

    Corrected Title Case. Nice obfuscation.

    #!/usr/bin/perl @_=('(','2','`' ,'+','#','!','(',' ','`','2' ,'`','`',' ' ,'2','`','(','`','/','.' ,'!', ' ','`','3','`','*');@__=('$','`','%' ,'@', '`','@','`',' ' ,',','`','%', '0',' ', '`', '%' , '`','4','`' ,'@','@',' ','4','`','5', '`' ); map$_&='_', @__[@___=(24,19,11,6)], @_[@___];_(\@_,\@__);sub _{print pop@{$_[0]} |pop@{$_[1]}; _($_[0] ,$_[1]) if @{$_[0]};}


    s{}(0914121301000d0e13070411010f04110b010700020a0411), $== hex++ $=,s((..)) { $1}g; $s.=chr $=+hex for split; $\=$";$s.=v44;print ucfirst for split((b),$s);
Re: Brothers Vars
by zentara (Archbishop) on Apr 06, 2005 at 12:37 UTC
    You forgot the / in front of usr on the shebang line.

    I'm not really a human, but I play one on earth. flash japh
      yes , sorry . the code it updated .thanks