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