if (  $FORM{'Comments'} =~ m/http|html|a href/i
   || $FORM{'addr'}     =~ m/http|html|a href/i
   || $FORM{'name'}     =~ m/http|html|a href/i
) 

##</code><code>##

for (@FORM{qw( Comments addr name )}) {
   if (m/http|html|a href/i) {
      html_message();
      last;
   }
)