@.=($$_,$+,$,);
         ;$$_=~$$_.+$1;$_='$;
        JustAnotherPerlHacker
      ';s#($/| )##g;$_=reverse;
       chop;chop;($chop,$:)=('
       hack;h...ack!;...$yeah!
       ;$+;......@_;......;$+;
        $a.......','.......$$
        $$$.....$$.$$.....$$$
        "$,==$*?$.:.#i_said
          hack!#..:..#$$$$$
          $_="drinkpoison";
           $$";"$";"$"$"$$
  $$$      $$$$ $ $ $ $$$$       $$$
 $$$$$      $$$$$$$$$$$$$       $$$$$
  $$$$$      "$$$$$$$$$"     $$$$$$$$$
$$$$$$$$$$$$$   """""    $$$$$$$$$$$$');
chomp;hack;$_=reverse;ch0p;$__.='$$#$"
 """    ""$$$$$$$$$$$$$ ""$""")';
       s/([JAPH])/$".lc($&)/ge;#
   $__='#assign JAPH to STDIN ,chop!$$$$$)'
  ;print,'skull           skullskullbone
   skull                      $chop!';