Select Code to Download

    print "Just another Perl hacker,"

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}";

    print STDOUT q
    Just another Perl Hacker,
    unless $spring

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

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

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";

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

Being the one who has given several talks about Japhs, I've decreed
that a Japh uses the following rules:
...
  - 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.