Nice JAPH, after I saw the code I started to play with it. I think it's better if you use the -l option. I was bored at wOrk :\

#!perl -l

$a="0"x24;
%b=(x20,[4,C,11],x61,[5,13],x63,[14],x65,[A,E,16],x68,[9,12], x6A,[0],
+x6B,[15],x6C,[10],x6E,[6],x6F,[7],x70,[D],x72,[B,F,17], x73,[2],x74,[
+3,8],x75,[1]);

foreach $c(keys %b){

    foreach(@{$b{$c}}){
        substr $a,hex,1,chr(hex($c));
    }
}

print"$a";
[download]

------------------

#!perl -l

$a="0"x24
;%b=(x20,
[4,C
,11],x61,[5,13],
x63,[14],x65,[A,

E,16],x68,[9,12],
x6A,[0],x6B,[15],
      x6C   ,[10]
,x6E,[6],x6F,[7],
x70,[D],x72,[B,F,

17],x73,[2],x74,[
3,8],x75,[1]);###
    for   $c(keys
    %b){for(@{$b#
    #x70,[D],x72,

{$c}}){substr $a,#
hex,1,chr(hex($c))
      ;}}
print"$a";#fun with
#hashes#x70,[D]x70,
[download]

--------------------

#!perl -l

                        $
                       a=#
                     "0"x24;
                    %b=(x20,[
                   4,C,11],x61
                  ,[5,13],x63,[
                 14],x65,[A,E,16
                ],x68,[9,12],x6A,#
              [0],x6B,[15],x6C,[10]
            ,x6E,[6],x6F,[7],x70,[D],
           x72,[B,F,17],x73,[2],x74,[3
          ,8],x75,[1]);foreach$c(keys%b
         ){foreach(@{$b{$c}}){substr $a,
        hex,1,chr(hex($c));}}print"$a";##
[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.