$_=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""