Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

The Most Cleverly Hidden Secret of All Time! (666th post)

by Mr. Muskrat (Canon)
on Apr 16, 2003 at 14:49 UTC ( [id://250914]=obfuscated: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    print &{'Just Another Perl Hacker'},$/;
    sub AUTOLOAD{
      *$AUTOLOAD=sub{(split'::',$AUTOLOAD)[1]};
      goto&$AUTOLOAD;
    }
    
  2. or download this
    ${'::*&^%$#@!'} = 'Just Another Perl Hacker';
    print ${$::{'*&^%$#@!'}},$/;
    
  3. or download this
    _10: print "Just Another Perl Hacker\n";
    _20: goto _10;
    
  4. or download this
    #!/usr/bin/perl -w
    use strict;sub t{map{chr($_)}@_}sub l{return(split' ',&s)[0=>1]}
    BEGIN{$%=2=>$;[0]=23=>$;[1]=$;[0]++=>$;[2]=3;@;=&t(@;)=>$^H^=$%}
    ...
    $:=shift;$a->{$:};};bless($;);$;;}sub u{die(&i);}sub v{(split' '
    =>&s)[2=>3]}sub i{join' '=>(&l=>join(''=>&t(@{&e}))=>&v=>$/)}sub
    e{[69,118,105,108]};sub p{'Just'}sub r{'Hacker'}sub o{'Another'}
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://250914]
Approved by bart
Front-paged by merlyn
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2024-03-28 16:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found