Level 1
- Level 2
  - Level 3

##

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($html);
my @nodes = $tree->findnodes('//ul[@class="top"]');
for my $node (@nodes) {
	my @elems = $node->findnodes('li');
	for my $elem (@elems) {
		my $text = $elem->as_text;
		print "$text\n";
	}
}

##

##

Level 1 Level 2 Level 3

##

##

Level 1