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; }
--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
In Section
Seekers of Perl Wisdom