A nasty looking, but relativly simple bit of code.
#!/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},-8
+4)
=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)=s
+pl
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)=s
+pl
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)=sp
+li
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)=s
+pl
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)=spl
+ic
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)=splic
+e(
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(m
+ap
($_."\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},2
+7)
=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/\=sp
+li
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++){pri
+nt
chr($q[$k]+ord(substr($splice,$i,1)));$i++;if($i>23){$i=0}};