JAPHs

derefjaph

perl -e '@_=(shift,pop);$*={ord"<"=>[sub{printf"%s",shift;join$&,
@ARGV[$.,$|]}]};$\=(($,)=$"=~?( )?)&&qq; $_[$#_]\n;;print+chop$,,
$*->{$=}->[$[]->($_)foreach($_[$|++]);' Just another Perl hacker,

intjaph

$_=join$\,(2**4*7,43*428863*8956249,5*389141*80257369,2*7*37*42569*7348511,7*613
*4703*7633091,2**2*3*7*661*997*1229*2251-2000);print(pack"c",oct$&)while/(...)/g

typojaph

sub'_{select$_[3],$_[2],$_[1],$_[0]}$:=?y??y::::q;:;;$:.=qq:-:;
@%=map{$:.$_}qw:) ) ( / o P P:;sub'__{@_=$c->(@:);while($_=pop)
{unless($*){$*=length;if(m+^$"*$+i){_$|if(length$&<$-)}else{$.=
shift@%}}if(/ /){pop@|for(length..++$*);push@|,$,for(length..--
$*)}print+chr$:;push@|,chop;print for@|;substr($.,0,1)=q$;$if$.
=~/P/;print$"x(27-@|).$..$"x5;_$=/1.e3;length&&redo;$**=length;
@|=(split($\,join$",split/\s/,join+q,,,@|),$,=$");next if@_}}$c
=sub{map{join$!,map{chr hex}/../g}@_};++$|;$:=2*@%-$|;$-=47%$:;
@:=qw;2c72656b636168 6c726550 2020202020202020 61426c6175736956
2020202020 4c4f424f43 20202020 6176614a 726568746f6e61 7473754a
;;__;print+chr@:

warnjaph

perl -we 'BEGIN{$SIG{__WARN__}=sub{($;=shift)=~s;((?<=:.).+(?="));print
$+.$";e}}sub Perl{$_=$::_;map{y,(), ,,$..=$_}split$\;local$,.=chop$.;qq
]$,$.,\n]}$_=$|++||shift;$\=eval;print $Just, "another"' Perl\(hacker\)

xorjaph

$_=q$,197+,27S,137,08(),09-K,13,11%1332230!b#>:!+'t{$;srand$=;sub'x{$$$x+=pop}$
qw=sub{$q++;$i[pop@a]=pop};unshift@a,x$_ for(map{reverse+split$,}/(\d*)!/g);&{$
qw}($+)while(s=,}?(\d{2})==x);$t=y*3012**d?reverse+split$i[@i]:die$_;@f=map$i[$
_]?chr$i[$_]:chop$t,0..--$q+length;print+chr(int(rand(58)+65)^ord)for@f,m$JAPH$

Things have changed in Perl since I wrote these, so a couple of them emit warnings, but they all still work:

$ sh derefjaph 2> /dev/null
$ perl intjaph
$ perl typojaph 2> /dev/null
$ sh warnjaph
$ perl xorjaph