I could not resist and I rolled my own...

It's my first attempt, and it can certainly be improved, especially the last part.

I tried not to look at other people's code, even though the source of my ispiration is evident :-)

Comments? Suggestions? 

#!/usr/bin/perl -w

use strict;

$_='my@japH=spl it//,"311003103 010"."0101"x(3) ."010     0";my
@japh=map+($_+$ _),7,5,2,4;my@J aph=map+($?=$?? $?+$?     :1),@
     japh;      my@Ja     Ph=sp lit//     ,"JAP H";my     ($jap
     h,$Ja      ph);m     y$jap H=0;m     y$JaP h=$ja     pH;fo
     r$jap      h(@japH){for$Ja ph(1..$japh){pr int(reverse(map
     +($ja      ph[$japH]&$_?$J aPh[$JaPh&3]:"\ 40"),@Japh));$J
     aPh++      ;prin     t"\n" if$Ja           Ph>>2     <<2==
     $JaPh      ;}$ja     pH++, $japH           &=3;}     ';;;;
 s-\s+          --gx;     eval; #JAPH           JAPH!     JAPH!
 #JAPH          JAPH!     JAPH! JAPH!           JAPH!     JAPH!

[download]

-- TMTOWTDI

In reply to Yet another JAPH by trantor

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.