#!/usr/bin/perl
 eval eval '"'.
           ('['
         ^'+').(      ('[')^
         (')')).(     ('`')|
          ')').(      ('`')|
                      '.').(
                      ('[')^              '/'                 ).+
          '\\'.+      "\"".(         '`'^'!').('`'        ^',').('`'^
          ',').(      ('{')^        '[').('{'^'"')      .('`'^'/').('{'
          ^'.').      ("\{"^       "\)").(      ((     "\{"))^    '[').(
          ('{')^      '(').(       '`'^'%'             ).('`'     ^'!').
          ("\{"^      ')').(       '`'^('#')).(       '`'^'('     ).('{'^
          '[').(      ('`')^        '!').('{'^')')    .('`'^'%').('{'^'['
          ).('`'      ^'"').          ('`'^('%')).(   '`'^',').('`'^'/').
          ("\`"^      '.').(                '`'^"'")   .('{'^
          '[').(      ('{')^        (        '/')).(   ('`')^
          '/').(      '{'^'['      ).('{'   ^'.').(     '{'^'('    ).((
          '\\'))      .('\\').(   '`'|'.').('\\').       '"'.';'.(('!')^
          "\+").       "\"";$:=      '.'^'~';$~=           '@'|'(';#;#