Here is (another)one:

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

• use the first function from List::Util instead of grep (more efficient for large lists)
• use the any function from Quantum::Superpositions (the perl6 way)(See the "Query processing" section.)
• Marginally easier, using List::Util::Superpositions