#!/usr/bin/perl

              $splice="Just Another Perl Hacker
           ";$p='-42)=splice(map($_."\n"){@z},-85
          )=splice(map($_."\n"){@z},-83)=splice(ma
         p($_."\n"){@z},-84)=splice(map($_."\n"){@z
        },10)=spl  ice(map($_."\n"){@z},-23)=splice(
       map($_."\n"){@                     z,-68)=spli
       ce(map($_."\n")
       {@z},-69)=splic
       e(map($_."\n"){                    @z},-84)=spli
       ce(map($_."\n")                    {@z},-37)=spli
       ce(map($_."\n")                    {@z},-22)=splic
       e(map($_."\n"){                    @z},-37)=splic
       e(map($_."\n"){                    @z},45)=splic
       e(map($_."\n"){
       @z},-1)=splice(
       map($_."\n"){@z                    },-33)=splic
       e(map($_."\n"){@z},-35)=splice(map(   $_."\n"){
       @z},-26)=splice(map($_."\n"){@z},37)=splice(map
       ($_."\n"){@z},-40)=splice(map($_."\n"){@z},-43
        )=splice(map($_."\n"){@z},-47)=splice(map($_."
          \n"){@z},-75)=splice(map($_."\n"){@z},

-35)=splic                                      e(map($_."
\n") {@z},                                      -49)=splic
e(map($_."                                      \n"){@z},9
)=splice(m                                      ap($_."\n"
){@z},-44)                                      =splice (m
a p($."\n"                                      ){@z}, -48)
=splice(ma                       p($_."\n"){    @z},-84) =
splice(map                       ($_."\n"){@    z},54)=spl
ice(map($_."\n"){@z},-15)=s      plice(map($    _."\n"){@z
},-78)=splice(map($_."\n"){@     z},-69)=spl    ice(map($_."\n") {@z},
-74)=splice(map($_."\n"){@z}     ,-62)=splic    e(map($_."\n"){@z},-59
)=splice            (map($_.     "\n") {@z},    -104)=splice(map($_."\n
"){@z},0            )=splice     (map($_."\n    "){@z},-26)=splice(map(
$_."\n"){@z},-49)=splice(map     ($_."\n"){@z},-39)=splice(map($_."\n")
{@z},-76)=splice(map($_."\n"     ){@z},50)=splice(map($_."
\n"){@z},-7)=splice(map($_."     \n"){@z},-20)=splice(map(
$_."\n"){@z},-67)=splice(m                       ap($_."\n
                                                 "){@z},-24
                                                 )=splice(m
                                                 ap($_."\n"
                                                 ){@z},-12)

=splice(map($_."\n"){@z},-31)=splice(map($_."\n"){@z},10)=splice(map($_.
"\n"){@z},-48)=splice(map($_."\n"){@z},-38)=splice(map($_."\n"){@z},-84)
=splice(map($_."\n"){@z},0)=splice(map($_."\n"){@z},-14)=splice(map($_."
\n"){@z},-54)=splice(map($_."\n"){@z},-54)=splice(map($_."\n"){@z},-67)=
splice(map($_."\n"){@z},-55)=splice(map($_."\n"){@z},-69)=splice(map($_.
"\n"){@z},-48)=splice(map($_."\n"){@z},33)=splice(map($_."\n"){@z},3)=sp
lice(map($_."\n"){@z},-28)=splice(map($_."\n"){@z},-47)=splice(map($_."\
n"){@z},-76)=splice(map($_."\n"){@z},34)=splice(map($_."\n"){@z},17)=spl
ice(map($_."\n"){@z},-13)=splice(map($_."\n"){@z},-30)=splice(map($_."\n
"){@z},-24)=splice(map($_."\n"){@z},-69)=splice(map($_."\n"){@z},-44)=sp
lice(map($_."\n"){@z},8)=splice(map($_."\n"){@z},-48)=splice(map($_."\n"
){@z},-46)=splice(map($_."\n"){@z},-106)=splice(map($_."\n"){@z},50)=spl
ice(map($_."\n"){@z},4)=splice(map($_."\n"){@z},-45)=splice(map($_."\n")
{@z},-43)=splice(map($_."\n"){@z},-27)=splice(map($_."\n"){@z},-58)=spli
ce(map($_."\n"){@z},-91)=splice(map($_."\n"){@z},-104)=splice(map($_."\n
"){@z},17)=splice(map($_."\n"){@z},-32)=splice(map($_."\n"){@z},-69)=spl
ice(map($_."\n"){@z},-34)=splice(map($_."\n"){@z},-26)=splice(map($_."\n
"){@z},41)=splice(map($_."\n"){@z},6)=splice(map($_."\n"){@z},-13)=splic
e(map($_."\n"){@z},-67)=splice(map($_."\n"){@z},-73)=splice(map($_."\n")
{@z},-27)=splice(map($_."\n"){@z},3)=splice(map($_."\n"){@z},41)=splice(
map($_."\n"){@z},-1)=splice(map($_."\n"){@z},-83)=splice(map($_."\n"){@z
},-51)=splice(map($_."\n"){@z},78)=splice(map($_."\n"){@z},46)=splice(ma
p($_. "\n"){@z},6)=splice(map( $_."\n"){@z},-7)=splice(map($_."\n"){@z},
-15)=splice(map($_."\n"){@z},10)=splice(map($_."\n"){@z},-69)=splice(map
($_."\n"){@z},-34)=splice( map($_."\n"){@z},69)=splice(map($_."\n"){@z},
34)=splice(map($_."\n"){@z},7)=splice(map($_."\n"){@z},-82)=splice(map($
_."\n"){@z},-36)=splice(map($_."\n"){@z},65)=splice(map($_."\n"){@z},27)
=splice(map($_."\n"){@z},10)=splice(map($_."\n"){@z},2)=splice(map($_."\
n"){@z},7)=splice(map($_."\n"){@z},-67)=splice(map($_."\n"){@z},-104)=sp
lice(map($_."\n"){@z},-74,';$/=')=splice(map($_."\n"){@z},';$p=~s/\=spli
ce\(map\(\$_.\"\\n\"//g;$p=~s/@//g;$p=~s/{//g;$p=~s/}//g;$p=~s/z//g;$p=~
s/\(//g; $p=~s/\)//g;@q= split(/,/,$p);$i=0;for($k=0;$k<=$#q;$k++){print
     chr($q[$k]+ord(substr($splice,$i,1)));$i++;if($i>23){$i=0}};