#!/usr/bin/perl

                                    $_='
                                    dw`m
                                 !#cholned!]y
                              z42|]yz45|]yz55|]yz
                            5g|]yz44|]yz45|-&;tug9&
                           #:lx)L%j-%h-%k-%s-%y-%x(:g
              ns%x)X,     04//05(zgns%y)1//68(zqshou#
            ]dZ#-%j\'04?6 >0;1-#:2#- %j$6-#l]yz372`|#:
     gns)%h<%j<%s<1:%k<%s+%s,%h+%h,3*%y.34-%h<3+%s+%h*
            %x.01-%k+REKCAHX%k*%hJUST+%h=00\'ANOTHER\'
              %jPERL*     *=000:%s<%k(zqshouHACKER##:
                           |||qshou#]dZ1l#:';s<\s+>
                            <>gme;y/\101-\130//d;
                               s/(.)/chr(ord($1
                                 )^0x1)/ge;
                                    eval
                                    ;qaa