snowman.pl

eval eval '"'.


            (((                          '['
          ))^'+')                      .("\["^
         ')'   ).+(  '`'|')').('`'|  '.')   .+(
          '['^('/')).(    '{'^    '[').('\\').
          '"'.('`'^'$'    ).+(    '`'|('/')).(
         ((  '{')   )^+    ((    '['   ))).  +(
        '['    ^((   '"')  ))  .''.   (((    '`'
       ))|'/'   ).('['^'.' ). ('{'^'[').   ("\["^
      ((     ','))).('`'|'!').('`'|('.')).(     ((
  '`'))|'.').('`'|'!').('{'^'[').('`'|'"').('['^'.').(
 '`'|  ')').('`'  |"\,").(    '`'|'$')  .('{'^'['  ).+(
 '`'    |'!').(    ('{')^      '[').(    '['^'('    ).(
 '`'|  '.').('`'  |"\/").(    '['^',')  .('`'|'-'  ).+(
  '`'|'!').('`'|'!').('`'|'!').('`'|'.').'?'.'\\'.'\\'
      .(     '`'|'.').'\\'.'"'.';'."\"";$:=     ((
       '.'))^   '~';$~='@' |+ '(';$^=')'   ^"\[";
        $/=    '`'   |'.'  ;(  $,)=   '('    ^((
         ((  '}')   )))    ;(    $\)   ='`'  |+
          '!';$:="\)"^    '}';    $~='*'|"\`";
          $^='+'^"\_";    ($/)    ='&'|'@';$,=
         '['   &'~'  ;$\=','^'|';$:  ='.'   ^((
          "\~"));                      $~='@'|
            '('                          ;#;