in reply to OR sequence

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

s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)