Select Code to Download

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

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

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