Here's my first attempt at a JAPH obfuscation: 
@a = qw(!57Just_Ano th60er_Perl 38_Hacker ____37_\);

$a67=$b+-$$;    $aa58=$bb;   $a[_]=82+$aa+$b;
until$aa64<$$aa  $a=$b+-66*$$aa; $a[$b]=48-_;
$a[$aa]=82;$a 72=$a;; $ab=66+--$bb 40=$c<$b;;
34<$a+$b- 80+$a/_; $a[$b++]=64%$bb;; $a=60+$d
$c[$a]=70+$a 53-$x;  $a86=$$_-$d;  $aa57=$ab;
$c[$aa]=55*_;  $c[$bb]=41*$bb; $mm=83+$_-$$_;
$a=57*$b/$_-$a 50*$_[_];     $mm=$aab+32-$$_;
$aa64=$f  -$a48+_;        $jj=39/$a a64+-$mm;
$fa73=$f-$c;;   $g=34*$+$h _70*$_+-$a 72-$$_;

$a=$b+\(81-$b++);
foreach (@a) { @_ = reverse $_ =~ /(\D+)*(\d)(\d)(\D+)/;
$_[1] ^= $_[2]; $_[2] = $_[1]^ $_[2]; $_[1] ^= $_[2]; $u
= join '', @_[1,2];  $_[1] = pop(@_); $b =  $#_---2; for
( $b..$#_) {push @x, $b  .= length($_[$_] ); } $x[$#x] =
pop(@x); $a[$a++] = pack "C",$u; } print unpack "u",eval
unpack "u",join'',@a ;

[download]
I know this isn't a canonical JAPH (as per merlyn), but I'll make sure future ones are. - robsv

In reply to First JAPH attempt by robsv

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.