Select Code to Download

if (  $FORM{'Comments'} =~ m/http|html|a href/i
   || $FORM{'addr'}     =~ m/http|html|a href/i
   || $FORM{'name'}     =~ m/http|html|a href/i
)

for (@FORM{qw( Comments addr name )}) {
   if (m/http|html|a href/i) {
...
      last;
   }
)