Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Perl World

by zshzn (Hermit)
on Jul 15, 2005 at 04:57 UTC ( #475117=obfuscated: print w/replies, xml ) Need Help??

My first obfuscated code (and my first post to PerlMonks). Not that good (and I'm open to suggestions), but I'm happy with it (for my first one).
$_=q 34727115116117 9201111161 140110141108210 141180140179299270110 1411 3 ;s/ \s//gx;$_= reverse ;@b =$_=~/\d{3} /gx; for (@b) {if(substr($_ ,0,1)== 2) { $_=substr($_,1);} $_ = chr ($_);}$_=reverse# "" `8, ( join "",@b);#" `b # 'Perl_World' 8 # by~ _ " 8 # zshzn "X a 8 # -----,_____ 8 @a= qw 9 4 12 17 9; #8, 888888888888' ,8' for #888888888I a8' $x (@a){substr #P' ($_ ,$x,0)=#8 dY" " ";} $_.=",\n" ;#"' undef @a;undef @b; print;#88888888888daf23w""

Replies are listed 'Best First'.
Re: Perl World
by eyepopslikeamosquito (Chancellor) on Jul 15, 2005 at 13:21 UTC
      It's good to be in such illustrious company.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2019-10-15 03:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?