#!/usr/bin/perl -w

use strict;

                $_="Just Another Perl Hacker!";
               @_=split //; %_=@_[1,2,6,7,14,15,
              19,20]; $..="/ \\ / \\" . " "x10 for
              (1..4); my @JAPH; push @JAPH,join "",
              "     ",join "",map {$_," "x16} @_[0,
              5,13,18]; push @JAPH,join "","    ",
                  map {$_," "x14} ('/ \\','/ \\'
                   ,'/ \\','/ \\'); push @JAPH,
                    join "","   ",join(" "x12,
                      map   {"$_   $_{$_}"} 
                        (reverse   sort 
                        keys %_)); push
                         @JAPH,join "",
                         "  ",$.; push
                         @JAPH,join ""
                         ," ",join " "
                         x8,( (join "  "
                         ,$_[0],(join
                         " ",@_[1,2]),
                         $_[3]), (join
                         "  ",$_[8],(
                         join " ",@_[
                         9,10]),$_[11])
                         , (join "  ",
                         $_[13],(join
                         " ",@_[14,15]
                         ),$_[16]), (
                         join "  ",$_
                      [21],(join " ",@_[22
                    ,23]),$_[24])); $"="\n";
                  print             "@JAPH\n";
[download]

ChOas