if (grep /http|html|a href/i,@FORM{qw[name addr Comments]}){
   html_message();
 }