>>899
なるほど。
だと、検索結果がタイトルになってると、十分に使えますね。
ただ、ウチの場合は部分マッチが多いので、結局書きました。
同じような人のために素人コードですが貼っておきます。

use strict;
use utf8;
use Encode;
use File::Copy;
# use open IO => ":encoding(cp932)";
binmode(STDIN,":encoding(cp932)") ;
binmode(STDOUT,":encoding(cp932)") ;
binmode(STDERR,":encoding(cp932)") ;