Your ASCII art is actually pretty good....until it gets to the last line. Maybe you could turn the last line into an exclamation line? Nice job.
Hope you don't mind, I modified the formatting to include exclamations at the end. I didn't make any code changes, just moved things around to change the ASCII art. If it bugs you (since it is your JAPH) message me and I'll edit it out of my post.
UPDATE: I forgot that I did modify the code, just added the '-w' for warnings and there are none! Great Job Wolfger! 
#!/usr/bin/perl -w

@a=(qq qaq..qq
      qzq,
      qq
      q q
);    $a=
0;@aa=(uc
$a[$a++,

$a++,$a++,$a++,
$a++,$a++,$a++,
$a++,     $a++,
$a],        $a[
$a++,$a++,$a++,
$a++,     $a++,
$a++,     $a++,
$a++,     $a++,

$a++,$a++,$a],
$a[$a--,$a--,$a],
$a[         $a++,
$a],        $a[
$a++,$a++,$a++
,$a++
,$a++
,$a++
,$a++

,$a],          uc$a
[$a--          ,$a--
,$a--          ,$a--
,$a--          ,$a--
,$a--,$a--,$a--,$a--
,$a--,$a--,$a--,$a--
,$a--,          $a--
,$a--,          $a--
,$a--,          $a--

  ,$a--,$a--,$a--,$a--
 ,$a--,$a--,$a],$a[$a++
,$a++,              $a++,
$a++,               $a++,
$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a],$a[$a++
,$a],                $a[
$a++,               $a++,
$a++,               $a++,
$a++                ,$a],

$a[$a--,$a--,$a--,$a--,$a--
,$a--,$a--,$a--,$a--,$a--,
$a--,
$a--,
$a],
$a[
$a--,
$a--,
$a--,
$a],$a[$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a++,$a++,

$a++,$a++,           $a++,$a++
,$a],$a[             $a++,$a++
,$a++,              $a++,$a++
,$a++,             $a++,$a++
,$a++,$a],   uc$a[$a--,$a--
,$a--,$a--,$a--,$a--,
$a--,$a--,$a--,$a--
,$a--,$a],  $a[$a--,
$a--,$a--    ,$a--,$a--,
$a--,$a--     ,$a--,$a--,
$a--,$a--      ,$a],$a[$a++,
$a++,$a++       ,$a++,$a++,$a++

,$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a],$a[$a--,$a--
,$a--
,$a--
,$a--,$a--,$a]
,$a[$a++,$a++,
$a++,
$a++,
$a++,
$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a++,$a++,

$a],uc$a[$a--,$a--,$a--,$a--,
$a--,$a--,$a--,$a--,$a--,$a--,
$a--,$a--,           $a--,$a--,
$a--,$a--,           $a--,$a--,
$a--,$a],$a         [$a--,$a--
,$a--,$a--,$a--,$a--,$a--,$a],
$a[$a++,$a++,$a],$a[$a++,$a++,
$a++,$a++      ,$a++,$a++,
$a++,$a++       ,$a],$a[$a--,
$a--,$a--        ,$a--,$a--,$a--
,$a],$a[          $a++,$a++,$a++,

   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a]);   $a=0;
   print   @aa[    $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
     
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
    $a++    ,$a     ];

[download]
-Kevin

In reply to Re: My first JAPH art by K_M_McMahon
in thread My first JAPH art by wolfger

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.