use 5.010;
use HTML::HTML5::Parser;

my $xml = HTML::HTML5::Parser->load_html(
	location => 'http://www.perlmonks.org/?node_id=974112'
);

my $nodes = $xml->findnodes('//*[local-name()="title"]');

say $nodes->get_node(1)->textContent;