>>374 遅くレスすいません以下のようにしたんですが

if (!open(WORD,"bad.txt")) { &error('データベース読取エラー'); }
foreach(<WORD>){
chomp;
if ($name eq $_){ $name = "禁止";}
}
close(WORD);

これであってますか・・？　と、いうか禁止ワードに反応なしなので
未だにできてません(´Д⊂)