>>194
ありがとうございます。
とりあえず下のような感じでうまくいきました。
スクリプトはシフトJISで書いています。


use encoding "shiftjis";
use Encode qw/ encode decode /;

$dir = "c:/bin/jane/Logs/2ch/ネット関係/WebProg";

opendir(DIR, encode("shiftjis", $dir));
@a = readdir(DIR);
closedir(DIR);
foreach(@a) {
　　$file = $dir . "/" . $_;
　　if($file =~ /dat$/) {
　　　　open(FILE, encode("shiftjis", $file));
　　　　while(<FILE>) {
　　　　　　$line = decode("shiftjis", $_);
　　　　　　if($line =~ /回答/) {
　　　　　　　　print $line;
　　　　　　}
　　　　}
　　　　close(FILE);
　　}
}

もっとスマートな書き方があればいいんですが…。