This will call &html_massage multiple times if more than one of the three items match. That may not be the OP's intent. To call &html_massage only once modify the loop to

ITEM:
for my $item( @FORM{ qw/Comments addr name/ } ){
  if( $item =~ m/http|html|A HREF/i) {
      &html_message;
      last ITEM;
   }
}
[download]