#Poem by E.E. Cummings

          $d = "n3c4 
       4ng4ch4hc44nn
   44u54qpg4n4kpguu";
         $d =~
           s/\s+//g;
         for($i=0;
         $i<33;$i++)
         {$t[$i]=chr
         (ord(substr
         ($d,$i,1))-
         2);}for(
         $i=0;$i<=$#t;
          $i++){$_=
         "$t[$i]"; if
         (/[1-9]/){
         if ($_==1){
         print'(';}if
         ($_==2){print
        "\n";}if ($_==3)
 {print')';}}else {print $_;}}