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]