perl-scripts/JAPH/japh_variables.pl

for($-..$=+$=){$_=chr;/[a-z]/io||next;$$_ = $_, $$_ = $_}
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $h$a$c$k$e$r,$/";