Select Code to Download

sub check_bogus_html_tags {
  # now check for bogus tags:
...
  $reason = "Bogus tags " . join(" ",sort keys %seen) . "\n"
    if (scalar keys %seen > 10 );
};

  # decode the possibly encoded body, either
  # from MIME-multipart message or from message body
...
    if $body =~ m#<\s*!\s*[a-z]{1,5}\s*>#mg > 5;

  $part_reason .= check_bogus_html_tags($body);