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/){
  ...
}
[download]

Hope this helps,