@forbidden =("porn","sex");
foreach $forbidden (@forbidden) {
if ($Message =~/$forbidden/) {
print "Bad Language Not Permitted";]
exit;}