$_
                                                ='[n'.
                                              'ew'.' y'.
                                             'or'.'k ci' .
                                            'ty'.' r'.'es' .
                                           'is'.'to'.'r]';split
                                         '';$a=19;$b=2;$_[$a]=$_
                                        [$a]^$_[$b];$_[$b]=$_[$b]
                                      ^$_[$a];$_[$a] =$_[$a]^$_[$b];
                                     $a =20;$b=3;$_[  $a]=$_[$a]^$_[
                                    $b];$_[ $b]=$_[    $b]^$_[$a];$_[
                                   $a]= $_[$a]^$_[      $b];$a=5;$b=0;
                                  $_[$a]=$_ [$a]^        $_[$b];$_[$b]=
                                 $_[$b]^$_[$a] ;          $_[$a]=$_[$a]^
                                $_[$b];$_ [$b]=            chr(ord($_[$b])
                               -15);$a=1;$b=6;              $_[$a]=$_[$a] ^
                              $_[$b];$_[$b ] =               $_[$b]^$_[$a];$_
                             [$a]=$_[$a]^$_ [                 $b];$_[$a]=chr(
                            ord($_[$a])+6);$_                  [5]=~s/\[/a/;$_[
                           13]=~s/y/p/;$a=21                    ;$b=7;$_[$a]=$_[
                          $a]^$_[$b];$_ [$b                      ]=$_[$b]^$_[$a];
$_[$a]=$_[$a]^$_[$b];$a=12;$b=8;$_[$a]= $_                        [$a]^$_[$b];$_[                                        $b]=$_[$b]^$_[$a];$_[$a]=$_
[$a]^$_[$b];$a=17;$b=9;$_[$a]=$_ [$a]^$_                           [$b];$_[$b]=$_[                                       $b]^$_[$a];$_[$a]=$_[$a]^$_
[$b];$_[$b]=chr(ord($_[$b])-11 );$a=16                              ;$b=10;$_[$a]=$_                                    [$a]^$_[$b];$_[$b]=$_[$b]^$_
[$a];$_[$a]=$_[$a]^$_[$b] ;$a=15; $b =                               11;$_[$a]=$_[$a                                   ]^$_[$b];$_[$b]=$_[$b]^$_[$a]
;$_[$a]=$_[$a]^$_[$b ] ;$a=12;$b=14 ;                                 $_[$a]=$_[$a] ^                                 $_[$b];$_[$b]=$_[$b]^$_[$a];$_
                                                                       [$a]=$_[$a]^$_[                               $b];$a=19;$b=14;$_
                                                                        [$a]=$_[$a]^$_[                             $b];$_[$b]=$_[$b]
                                                                         ^$_[$a];$_[$a]=                           $_[$a]^$_[$b];$a=
                                                                         21 ;$b =15 ;$_[                          $a ]=$_[$a ]^$_
                                                                          [$b];$_[$b ] =                         $_[$b] ^ $_[$a]
                                                                           ;$_[$a]= $_ [$a                      ]^$_[$b];$a = 20
                                                                            ;$b = 16; $_[$a                    ]=$_[$a]^$_[$b];
                                                                             $_;$_;$$;$_[$b                   ]=$_[$b]^ $_[$a+0
                                                                              ];$_[$a]=$_[$a                  ]^$_ [$b ];$_ [
                                                                               $b*1] =chr(ord                ($_ [$b]) -12+1)
                                                                                ;$a=17+1+1; $b              =21;$_[ $a*1] =
                                                                                 $_[$a]^ $_ [$b            ];$_[$b/1]=$_[$b 
                                                                                  ]^$_[$a];$_[$a]         =$_ [$a*1]^$_[
                                                                                   $b] ; $_[ $a+0]       =chr(ord($_[$a
                                                                                    ])-8*1/1+0);$a      = 22; $b=23*1;
                                                                                     $_[$a]=$_[$a/1    ] ^ $_[$b*1];$_
                                                                                      [$b] =$_[$b+0]  ^$_[$a];$_[$a]
                                                                                       =$_ [$a]^ $_[ $b];$_[$a+0 ] =
                                                                                        chr(ord($_[$a*1*1/1])+8);
                                                                                         $_[18+1-2+1]=chr(ord($_[
                                                                                          18*1/1+0])-1);$_=join
                                                                                           '',@_;print;$0;$_;0;
                                                                                            'j'.'u'.'s'.'t'.
                                                                                             'i'.'n'.'t'.'h'
                                                                                              .'e'.'h'.'a'
                                                                                               .'c'.'k'.
                                                                                                'e'.'r'.
                                                                                                  '!';


__END__
print "\n";
print "just another perl hacker\n";
print "000000000011111111112222\n";
print "012345678901234567890123\n";
a = a ^ b
b = b ^ a
a = a ^ b
000000000011111111112222
012345678901234567890123
>new york city resistor<
just another perl hacker