obfuscated zshzn 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). <code> $_=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"" </code>