Here is another JAPH for your enjoyment; my third contribution to the JAPH world. For this one to work you need to make sure that it executes in an environment with a fixed-width font. Otherwise it's not too pretty. Any standard terminal should be fine. Also, if you cut and paste, be sure that you're not adding any whitespace or newlines that shouldn't be there. This is intended to be a one-liner.

As with my previous two JAPH's, this is just a learning experience for me, and I am mostly looking for comments that might help me to find new areas for growth. Please post if you know what it's doing (probably not too difficult to decipher, but I'm fairly new to Perl), and feel free to comment on technique, etc.

So without further adieu, here it is: 

for(qw$f29970i425010i429110i521210i2c8110 629979ed10i9652192420if6521f
+6c10i9a52192420i929119e520 7ed9i924ai76c9i124ai1e5a70 9c894fe0i925a21
+21ife5813e0i925a2121i92994f21$){print$/;for(split"i"){$o=unpack("b*",
+pack("h*",$_));$o=~tr/10/# /;print"$o$/";}}

[download]

Fun, huh?

Dave "If I had my life to do over again, I'd be a plumber." -- Albert Einstein

In reply to ASCII Art JAPH by davido

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.