$FORM{'comments'} =~ /\b$_\b/ }

##</code><code>##

@blocks = map { quotemeta($_) } @blocks;
... $FORM{'comments'} =~ /\b$_\b/

##</code><code>##

$FORM{'comments'} =~ /\b\Q$_\E\b/