Below is my humble JAPH. It's not the most obfuscated in the world, and the art is decidedly crude, but it was definitely fun to implement.

I made a conscious effort to avoid alphanumeric characters, even in variable names, except those required for the builtins: chr, int, length, log, ord, print, sqrt, and the while statement. Also a couple of uses inside regexes. 

                 ($/)=$~=~/..(.).$/,
         $_=$/.$`;                 $_=chr(ord
    ($&)+                                   length
 ($~)                                            ).$_
;$/=                                                 ord
($_);          $_.=chr          (length              ($_
.$~.           $&.$~));         $_.=chr              ((
 $/-            int (            sqrt(               $/)
 ))-                                                 //).
 chr     ($/                             +int        (log
 ($/     )));                           ($;,$,       )=$~
 =~        /.(.).(.)/            ,$_.=$,.$;;         $/
 -=               //,$/-=//;$_.=chr(                 $/
  );$/                                             -=//
     +//+                                      //;$_
         .=chr($/).                  chr(ord($~
                   )-//).chr((ord($~)
                           
       +//  )/((  length  ($~     .$_     )+//+//
       +//  )  /  //+     //)     );(     $;,  $/
       ,$,,$",$\  )=/(.)  .(.     ).(     .)(  ..
       )(.  )$/x  ,$_     .=      ++      $/.  $"
       ;$/  =$;;  $  ;++  while(  /\G./g  &&$"!~/
       
       $&/x );$_  .=++$;; $_  .=  $\  .$  ,.$/;++
       $/ ;$_.=   ++   $/ ;++ $,  ,++$,   ,++    
       $, ,  $_   .=   $, .  $";  print   (($_));
       $' ;  $%   ==   // ;   $$  == $\        ++
       ;;    $|   =//+//i ;    ;  $' ,$\  ;$!/$$;

[download]

In reply to Happy JAPH by bellaire

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.