in reply to bareword error

= is for assignment
=~ is a binding operator for regex's

A match regex needs to delimited by set of 2 symbols not 3.

if ($FORM {'comments'} =~ m/http|html|HTML|A HREF|a href/i)
Should fix it.
UPDATE: added comment about delimiters
grep
One dead unjugged rabbit fish later...