In perl, we have japhs. Here are two examples:
@a=split(q,,,qq,hgNbueCe nxe\nWf agr ryUpr,,);for($i=015;;){if($i>=@a ){last};$_=$a[$i++].$a[$i-0xe];y;[A-Ma-mN-Zn-z];[N-Zn-zA-Ma-m];;print}
@q=split(q??,qq?,JAPH \nacehklnorstubsqrfcnorkjpfdjpmfehi\ ljpag?);$i=0x13;while($i<=@q){print$q[ord($q[$i++])-0141]}
Equivalent to:
print"JustAnotherPerlHacker,\n";
Now Philip will tell me the ',' should not be there.
This one's from ASR, I forget whose sig it was in:
$q=q($@@@#$$@#$$$#@%$@#@$#@@@#@#$$$$#$#$@$%$@@$#$#$@$#$@$$%$$$$#$@#@$@$#@$@#$# $@$);@c=split//,'0etianmsurwdkgohvf0l0Pjbxcyzq';$f=1;$s=0;for$c(split//,$q){if ($c ne'$'&&$c ne"@"){print $f?uc($c[$s]):$c[$s]if$c[$s];$s=$f=0;}else{$s*=2;$s ++;$s++if$c eq'@';}print" "if$c eq'%';}print "$c[$s],\n";#probably too general
and Dave Brown posted this one in the same froup:
print "xx/yy? ";$_=<>;m,([0-9]+)\s*/\s*([0-9]+),;$j=$1;$b=$2; $d=eval;$f=$d-int $d;$t=$f*$b;print int $d,$t&&" $t/$b","\n";
It's supposed to be some kind of math tutor. Now that I read it carefully, I think I see what he's doing. He said:
=item Someone commented that even though Perl actually compiled and ran that, I had obviously just fallen asleep on the keyboard and that's what came out. =cut