in reply to Blocking based on words in a list

Joining words with "|", you can check a string at one time. And I use "quotemeta" to quote regular expression magic characters.
chomp (@blocked); my $regex = join "|", map{ quotemeta($_) } @blocked; if( $FORM{'comments'} =~ /$regex/){ ... }
Hope this helps,