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