07/10/18 14:27:32 UPSxQDmL0
ごきぶりほいほい
$ngnum = 0;
$ok = 1;
$ngnum++ if ($msg =~ /熊谷基地/);
$ngnum++ if ($msg =~ /セクハラ/);
$ngnum++ if ($msg =~ /ＷＡＦ/);
$ngnum++ if ($msg =~ /ぴー/); <=実名のため削除
$ngnum++ if ($msg =~ /２曹/);
$ngnum++ if ($msg =~ /２教群/);
$ngnum++ if ($msg =~ /７中隊/);
$ok = 0 if (2 < $ngnum);
next if ($ok);
このあと抽出とか書き込み規制とか・・・