I wrote this JAPH to experiment with the charnames pragma, which is new in perl5.6.

use charnames ();BEGIN{${"\10"}|=${(
$j= charnames ).v58 x2 .hint_bits};${"\b"}{$j}=$j}
sub charnames (){'Just another Perl hacker'}print"\N{
--- chipmunk! )}\n"
[download]

It turns out that this feature is very fragile. I got a lot of segmentation faults while getting this JAPH to work, so I decided to keep it fairly simple.