use HTML::TokeParser::Simple;

my $p = new HTML::TokeParser::Simple ( \ qq{
    <META NAME="Company.HTML.author" CONTENT="Carl Jones">
    <META NAME="Company.HTML.author" CONTENT="Carl Jones">
    <META NAME="web.author" CONTENT="Mike Simmons">
});

while(defined( my $t = $p->get_tag('meta') ) ) {
    my $at = $t->return_attr;
    if($$at{name} =~ /author/i) {
      print "$$at{name}=$$at{content}\n";
    }
}
__END__
Company.HTML.author=Carl Jones
Company.HTML.author=Carl Jones
web.author=Mike Simmons