すみません。掲示板のNGワードをファイルから配列に代入して
それをチェックして弾きたいのですが下記のないようだとエラーがでます。。
open(IN,"./ngword.txt");
@ngwordtmp = <IN>;
close (IN);
foreach(@ngwordtmp){
$_ =~ s/\n//i; #--改行取り除き
if ($revew =~ /$_/){&error;}　　　#---$reviewは投稿内容です
}
foreachの中にifを置くとエラーがでます。たぶん文法的に大きな間違いを
していると思うんですが指摘していただけると幸いです。
宜しくお願いします。