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