use strict;
use warnings;
use HTML::TokeParser::Simple;
my $description;
my $p = HTML::TokeParser::Simple->new(*DATA);
while (my $token = $p->get_token) {
if ($token->is_start_tag('meta')) {
my $attr = $token->return_attr;
if (defined $attr->{name}) {
$description = $attr->{content};
last;
}
}
}
print "TokeParser got '$description'\n";
__DATA__
Hello World