Encode.pmで「髙」（ハシゴ高）が文字化けする

Perl5.8で、EUCで保存されたテキストファイルを読み込み、Shift-JISで保存しようとしてます。 EUCからShift-JISへの変換は、Encode.pmを使用しています。 テキストファイルに「髙」（ハシゴ高 0xFCE2）や「﨑」が入っていた場合、変換されたデータは「?」（0x3F)になってしまいます。 「髙」や「﨑」をPerlを使用してEUCからShift-JISする方法はありませんでしょうか？ ====================================== use Encode qw/ from_to /; open IN, "data.txt"; $data = <IN>; close IN; from_to( $data, 'euc-jp','shiftjis'); open OUT, ">data2.txt"; print OUT $data; clo

[deep_one]

歴史的経緯で同じ文字（グリフ？）が二つ（２コード？）あるんだよね（笑）