use XML::LibXML;
my $parser = XML::LibXML->new;
my $doc = $parser->parse_html_string( $content );
my @nodes = $doc->findnodes( '//li/a[@title]' );
for my $node ( @nodes ) {
	say $node->nodeName, " ", $node->string_value;

}