>>80
シフトＪＩＳのファイルを扱うとき、
binmode STDOUT, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
binmode STDIN, ":encoding(cp932)";
use open IO => ":encoding(cp932)";
とか書かなかった？
cp932 を例えば、UTF-16LE に変えれば済むことと思われるが。