or even use index() instead of the regex....

for @badwords {
  print "shame on you"
   if index $pass, $_ > -1;
}
[download]