Have you checked out Ovid's HTML::TokeParser::Simple as it sounds like it would be well suited for this job e.g

use HTML::TokeParser::Simple;

my $p = HTML::TokeParser::Simple->(shift || "index.html");
my @meta_tags;
while($t = $p->get_token()) {
  push @meta_tags, $t if $t->is_tag('meta');
}
[download]

HTH

_________
broquaint