The other day, the vp of engineering at my company asked me if I had written any JAPH's yet... I figured, having worked with Perl for about 6 months, that I was ready for the challenge. The output is should be viewed with a browser: it's my company's logo -- great for brownie points! 
#!/usr/bin/perl -w
 #1|!s[!s"sc-[;s[us
  open(s0,$0);$s2s0=
   "";while(<s0>)#$s=
    #o$s>]0se*][=5[]]-
     {chomp;if(#/s2_0=~
      /^\s*#(?!!)(.*)$/)
       #e??{!~_()=*|i?[i_
        {$s2s0.=$1}} $s2s0
         =~s/^\s*#//g;close
        #)b0sib0s?=*~5|]|i
       (s0);$s2s00=qq%otx
      <e>a:c lhiTnfrspbz
     g1/=-5dw0y\\kmC% ;
    #_*]e5+b05[!s[ib0#
   $s2s00=~s/\n//g;#$
  $s2s00 #=~#<br>#gi
 =~s/\s{2,}//g #/s/
#|!s=5|]|i_c[]]|/=
 ;$s2s0_s=qq%|su0[b
  e;5=]\${a!#i:-*,~(
   o_"\%?/)c'+>1% #%s
    ;$s2s0_s=~s/\n//g;
     $s2s0_s=~ #s/[a-z]
      s/\s{2,}//g;$s2s0s
       #:{,[_(bo'0#|!s=5|
        ="";$s2s0_ss=-1 #/
         ;while ( $s2s00 =~
          /(.)/g ){ $s2s000=
         substr($s2s0_s, ++
        $s2s0_ss,1)#$s2s0-
       ;$s2s0s_s{$s2s000}
      =$1;}$s2s0_ss=0 #s
     #]|i_/${s[=:{,[_%b
    ;while($s2s0) { ++
   $s2s0_ss;$s2s00_ =
  substr($s2s0,0,1);
 $s2s022=$s2s0s_s {
$s2s00_}; $s2s0 =~
 #0*ibaie?{e!s0o#|!
  s/\Q$s2s00_\E//;#s
   $s2s0s.=$s2s022;if
    #sb0*ib'o0o#|!sb0o
     ($s2s0_ss==22){#++
      $s2s0s.="\n\n" } }
       print $s2s0s;#$|=0
          #s?b0sib0ose*][b

[download]
Feedback would be much appreciated,

joecamel

In reply to My Very First by joecamel

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.