new japh

liol on 2005-01-28T18:54:21

#!/usr/bin/perl
$=-=$=;tie$;,'main';$_{$;,$;,$;,$;,$;,$;,$;,$;,$;,$;,$;,$;,$;}=$=;($_=
each%_)?print:_;sub TIESCALAR{bless[split'',"jtqq\x1C\x5chhl_[g\x14c".
"Wc\x5C\x0FVNOVO[\x09"],$_[$=--];}sub FETCH{chr ord($_[0]->[$=])+$=++}