howdy! this is my first "regular" obfu (not counting some slightly opaque JAPHs :-), so please be kind and/or help me becoming a better obfuscator.

I originally wanted to have this on a t-shirt for YAPC::Europe::2003, but time did ran out under my feet. a t-shirt will eventually be made, sooner or later.

enjoy, and visit this beautiful country ;-)

use strict;
use warnings;

                     @                           
               _=q*A*;my$                        
       m   ;  @_[7,6]=($_[0]                     
       )x2;my@i;@{_}[1..2]=(                     
  'T','T');@i=($[,$!,$]);*t::_                     
  =\&t;$m=\$";$_[4]='L';$"=""                    
 ;$_={}+1;sub q{&e;&r};@                          
 i=(u=>n=>i=>q(n));$i[4                          
 ]=lc$_[2];$_[-1]++ for#                         
 1..3;$_[1]++;$m=uc(uc(                          
    @i[2    ,].@_[2,].@_                         
    [0        ,]));$_[3]=                        
              $_[5]='O';@i[1
               ,0]=(qw(r i p))                   
               [0,2]; $::{$m}                    
              = sub{_(&e(&d(&o                   
                 (&{c}))))};sub                  
                   _{eval"@i\" \"                
                     "};eval"sub @_\{@i(          
                       \$::@_=~/^.* ::(           
        .*              ?)\$/ix)}";&i&&&t    ;  
    *_::n=\&                 n;a(),&::l;{{&i}    
    };eval "                  \&@{[lc$_[0]]};";  
     *X::=$/                     ;_::n()&&&s();& 
     _;ITA(0                      );*X::=     $/ 
      ;$/.=                          '';#        
     P()=>&                          q,&l,&      
      _; s(                           u)(b(      
                                      ));        
                                     e(b(        
                       ) );$    _={}*@_;         
                      map{$_->_}(q(t));          
                       &q(&t);*_::_              
                          =\&{'!'};              
                            _::_('EN             
                                D')
[download]

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.