#　[Perl 日本語処理]
#　さまざまな機能をわかった上でどうしても，という方を留め立てする
#　つもりはありませんが，>>7 でできることのほとんどはもう

　use Sjis;
　require 'jacode.pl';

#　に含まれてるかもです。
#　いまさら >>7 を使わずに，いなばの道を行くしかありません。