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}};
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.