my $tokens = html_tokens(<<END_HTML);
<h1>This is html</h1>
<p name="bar" CLASS="ovid has no class">so what???
<p NAME="bar" class="ovid has no class">so what???
<p name="bar" class="ovid has no class">so what???
<h2>and this is okay</h2>
END_HTML

if ($regex->match($tokens)) {
    print "Yes\n";
}
else {
    print "No\n";
}

$tokens = html_tokens(<<END_HTML);
<p name="bar" CLASS="ovid has no class">so what???
<p NAME="bar" class="ovid has no class">so what???
<p name="bar" class="ovid has no class">so what???
<h2>and this is okay</h2>
END_HTML

if ($regex->match($tokens)) {
    print "Yes\n";
}
else {
    print "No\n";
}


sub html_tokens {
    my $html = shift;
    
    my $parser = HTML::TokeParser::Simple->new(\$html);
    my @tokens;
    while (my $token = $parser->get_tag) {
        push @tokens => HTML::Token->new($token);
    }
    return \@tokens;
}