use HTML::TreeBuilder::XPath;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_file( "index.html");
my @nb = $tree->findvalues( '/html/body//p');