Re: OR sequence

[chargrill]

You can't do that.

You'll need something like:

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

Other notes: you don't need the HTML and html with the /i at the end of your regex

Your test for HTML is a little naive.

Your test was just testing:

if( there's anything in Comments
      or
         there's anything in addr
      or
        name matches regex ){
  &html_message;
}

[hipowls]

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;
   }
}

[ikegami]

You need a last in your if to avoid calling html_message three times.