9c9
<                     ?6>0;1-# :2#-%j$6-#l/#:gns)%h<%
---
>                     ?6>0;1-# :5#-%j$6-#l!#:gns)%h<%

##</code><code>##

#!/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

##</code><code>##

#!/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