Select Code to Download

use HTML::TokeParser;
my $parser = HTML::TokeParser->new( \$src );

use HTML::TokeParser::Simple;
my $parser = HTML::TokeParser::Simple->new( \$src );

my %meta;
my $htm2 = HTML::TokeParser->new( \$src );
while (my $token = $htm2->get_token) {
        next if $token->[1] ne 'meta' && $token->[0] ne 'S';
        $meta{$token->[2]{name}} = $token->[2]{content};
}

my %meta;
my $htm2 = HTML::TokeParser::Simple->new( \$src );
while (my $token = $htm2->get_token) {
        next unless $token->is_start_tag('meta');
        $meta{$token->get_attr('name')} = $token->get_attr('content');
}