my $fail=0; my @ErrMsg;
my @forbidden=('porn','sex');

if (map {$Message =~ /$_/i} @forbidden){
  $fail=1; # or $fail++;
}

if ($fail){ # or ($fail > 2)
  push @ErrMsg,"Bad Language Not Permitted";
}