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""
