#!perl use strict; use HTML::TreeBuilder 5 -weak; my $tree = HTML::TreeBuilder->new; $tree->parse_file(\*DATA); my @items = $tree->look_down( '_tag', 'meta' ) or die("no items: $!\n"); for my $item (@items) { print $item->attr('itemprop'); print ' = '; print $item->attr('content')."\n"; } __DATA__
blah!!