Version I: (please forgive the formatting)
#!perl &ld() ;$c =~ y| A-Za-z0-9+/| -_|; $a = join "\n",map {$_=join'',map { $b= ord ( $_) ; join"", map{$b=int($b/ 3);$b %3; } (0..4 );}split( //,$_);}(split (/\n/ ,join '' , map(unpack ("u", chr(32 +3/4* length ($_)) . $_) ,#AAA PPPPP PPPPPP HHHHH HHHHH #JJJJ AAAA AAAA PPPPP PPPPPP HHHHHHHHHHHHHHHH #JJJJ AAAA AAAA PPPPP PPPPPP HHHHHHHHHHHHHHHH #JJJJ AAAAA AAAAA PPPPPPPPPPPPPP HHHHHHHHHHHHHHHH #JJJJ AAAAA AAAAA PPPPPPPPPPPPP HHHHHHHHHHHHHHHH $c =~ /(.{1,60})/gs )));$a=~y|ab 012|a #/|; print $a;#J AAAAAAAAAAAAAAA PPPPPPPPPPP HHHHH HHHHH #JJJJJ JJJJJJ AAAAAAAAAAAAAAA PPPPP HHHHH HHHHH #JJJJJJJJJJJ AAAAAAAAAAAAAAAAA PPPPP HHHHH HHHHH #JJJJJJJJJJJ AAAAA AAAAA PPPPP HHHHH HHHHH #JJJJJJJJJ AAAAA AAAAA PPPPP HHHHH HHHHH #JJJJJ AAAAA AAAAA PPPPP HHHHH HHHHH sub ld { $c=" AG xe A QoAe Yg 6 C q K j Y xY A A A A A AF E KN jY G B AAA AAA AbAo AEg IA A AA AAA B s Cg B d AQAE KA B +A X go Cg B d A QA Md R Jy O nk N C qJ eA QA M bA d VFm wK Nl 4 BA A xR Ug 0A b Ao A XQ EA DF E BJ w BsC gB dA Q A MUQ FsA W w KAF0 B AA xR A QA Nb Ao AXQ E ADKI B K Q xs C g B U A AB 1 Q6 Z 4B m wKJ KIAA GwN DHUC UQE K e D YK Vx UKA g Q K A AEK AAo A A AA A AAAA AA A S Cg A A A AAAAAAAAA c KAA AA AA A A AF EA BA oAA A AA AA AAb A AE Cg A A A AA A AA B sAA QK h wQ ne w B + AX g op gSHA Q0 pC m Om dX c T c jd 5 DT oNYw T Je A YK Bk N s b Ad T Fm w AF i cG DS R 1 A go E DG xRU g EE bAAE JA Qn J A oEDG xR U gE EbAA EJ HkN JAo ED G x RU gEEb A AE JH kEJ A oE D G x RU gE E bA AEJA QA J A o E D 2 x R U g E E bAA E J Cg 2 JA p 4J mx SB HkB b AA E JH g W d Qp1b FEED X g A UQ E M J HU Eb AEK A A AA A A A AAA AA A BI K AAAA AAAA AA AA A AY K AAAA AAAA A AA A AA I K AA A AA A AAA A AA o go A CgBs Xg EAA AA A bA EK A HmI B AA AAA BR B A qio 2 MEA AA A A F E B Cj Y2B i cA AAA A AA QK A BI CJ A A A AA A A BA oA XQE khw EN KQ A EC g B dA S R j B M l4 Bg QKo l4B E gY N JH U CB Ao 2Xg E GBC c kAAA ECg B d eQ J 5DS QA A AQ K AF 15 AH k EJ A A A BA o AX Q EA BA Ak A AA ECgB d AQ A oN i QA AA QK A F0 BAHg W dQA A rw o MX QE AdQ Rs AQ B CC g 2l C ic 2Cn U WC lEE Cg A K E g AA AAAA og oHA AAA AA A/A A A AAAA AJ w oE AA AAA AA kA AA AA AA AdQo EAA AA A A A k AAAAAAAAbAoEAAAAAAAkAAAAAAAAbAqmBIcEog0kKgAqbIgEbAo6DWOmNg0 mdwB3UWevbAoWJwZDEsnGNqJsAQRDbAoEJAQMDAAkEmxRBAQAbAoEJAQMDAAkBmx5AQQA bAoEJAQMDAAkBGx5AAQAbBMKBCQEDAwAdQ1sAAAEAFEHCgQkBA8noiQnbAQGBAoEJHgmd UMkdVd5Ag0AUQoMJHVsbA1sbAJ5ACcAbAEKABIAAAAAAAAAAAAAAFEKAAYKAAIKog "; $c=~s/\s//g; }

In reply to which JAPH? by eugsadhu

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.