chomp (@blocked);
my $regex = join "|", map{ quotemeta($_) } @blocked;
if( $FORM{'comments'} =~ /$regex/){
  ...
}