#!/usr/bin/perl

                                       $_='
                                       lx)L
                                    %j-%h-%k-%
                                 s-%y-%x(:gns%x)X
                               ,04//05(zgns%y)1//6
                              8(zqshou#]dZ#-%j\'04
                    ?6>0;1-# :5#-%j$6-#l!#:gns)%h<%
                   j<%s<1:%k<%s+%s,%h+%h,3*%y.34-%h
               <3+%s+%h*%x.01-%k+REKCAHX%k*%h+%h=
                   00\'JUST\'ANOTHER%jPERL**=000:%s
                    <%k(zqs  houHACKER##:|||qshou#
                             ]dZ1l#:';s/\s{1,}//gm;
                               s/[\x41-\x58]//gm;
                                s/(.)/chr(ord($1)
                                    ^0x1)/ge;
                                       eval
                                       ;qaa