print "Just another Perl hacker,"

##</code><code>##

From merlyn@iwarp.intel.com (Randal Schwartz) 1 Feb 90 22:28:58 GMT
@a=split(/(\d)/,"4Hacker,2another3Perl1Just");shift(@a);%a=@a;print "@a{1..4}";

##</code><code>##

    print STDOUT q
    Just another Perl Hacker,
    unless $spring

##</code><code>##

$Old_MacDonald = q#print #; $had_a_farm = (q-q:Just another Perl hacker,:-);
s/^/q[Sing it, boys and girls...],$Old_MacDonald.$had_a_farm/eieio;

##</code><code>##

perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
         / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
         % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
         BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'

##</code><code>##

map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;        
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";

##</code><code>##

$;                                   # A lone dollar?
=$";                                 # Pod?
$;                                   # The return of the lone dollar?
{Just=>another=>Perl=>Hacker=>}      # Bare block?
=$/;                                 # More pod?
print%;                              # No right operand for %?

##</code><code>##

Being the one who has given several talks about Japhs, I've decreed
that a Japh uses the following rules:

  - It prints "Just another Perl Hacker" with some reasonable
    capitalization, followed by optional punctuation (comma,
    dot) followed by an optional newline. Some flexibility
    in rules makes for more Japhs. Printing to either STDOUT
    or STDERR is allowed.
  - It doesn't print anything else.
  - The program uses at most 4 lines, each line at most 80 characters.
  - It uses obscure or surprising syntax.