use HTML::TreeBuilder::XPath; my $html = '
'; my $tree = HTML::TreeBuilder::XPath->new; $tree->parse($html); $tree->eof; my @values = $tree->findvalues('//li/a'); print "$_\n" for @values;