Perl で、Shift JIS でスクリプトを保存するには?

Perl でケータイ向けのサイトを書いているとき、シフトJIS でスクリプトを保存しないければならない場合がある (文字列テーブルなど)。このとき、

Unrecognized character \x81 at ./your.cgi line XX.

といったエラーに悩まされているなら、 などのように、「―」を「ー」で表すようにするとよい (Mac の場合は、「ー」が「―」になるようで、この現象が起こる)。または、文字化けする文字の後ろに「\」を付ける。 以下は、Shift JIS で文字化けする文字の一覧。文字化けを起こしやすいよく使う文字は強調しておいた。 文字 - Shift-JIS - Unicode での記述方法

―　　81 5C　　　―
ソ　　83 5C　　　ソ
Ы　　84 5C　　　Ы
Ⅸ　　87 5C　　　Ⅸ
噂　　89 5C　　　噂
浬　　8A 5C　　　浬
欺　　8B 5C　　　欺
圭　　8C 5C　　　圭
構　　8D 5C　　　構
蚕　　8E 5C　　　蚕
十　　8F 5C　　　十
申　　90 5C　　　申
曾　　91 5C　　　曾
箪　　92 5C　　　箪
貼　　93 5C　　　貼
能　　94 5C　　　能
表　　95 5C　　　表
暴　　96 5C　　　暴
予　　97 5C　　　予
禄　　98 5C　　　禄
兔　　99 5C　　　兔
喀　　9A 5C　　　喀
媾　　9B 5C　　　媾
彌　　9C 5C　　　彌
拿　　9D 5C　　　拿
杤　　9E 5C　　　杤
歃　　9F 5C　　　歃
濬　　E0 5C　　　濬
畚　　E1 5C　　　畚
秉　　E2 5C　　　秉
綵　　E3 5C　　　綵
臀　　E4 5C　　　臀
藹　　E5 5C　　　藹
觸　　E6 5C　　　觸
軆　　E7 5C　　　軆
鐔　　E8 5C　　　鐔
饅　　E9 5C　　　饅
鷭　　EA 5C　　　鷭
偆　　ED 5C　　　偆
砡　　EE 5C　　　砡