use v5.14;
use syntax qw( junction );
use XML::LibXML 2 ':all';

my $xml = XML::LibXML->load_xml( IO => \*DATA );

my ($foo) = $xml->getElementsByTagName('foo');
say $foo;                  # says '<foo>Hello World</foo>'
say $foo->textContent;     # says 'Hello World'

my ($bar) = $xml->findnodes('//bar');  # xpath
say $bar;                  # says '<bar quux="1"/>'
say $bar->{quux};          # says '1'

my @baz = $xml->findnodes('//baz');
say $_->{xyzzy} for @baz;  # says 'a' then 'b' then 'c'

my ($comment) = 
	grep { $_->nodeType eq none(XML_ELEMENT_NODE, XML_TEXT_NODE) }
	$xml->documentElement->childNodes;
say $comment;

__DATA__
<document>
	<foo>Hello World</foo>
	<bar quux="1" />
	<baz xyzzy="a" />
	<baz xyzzy="b" />
	<baz xyzzy="c" />
	<!-- yes, this is part of the DOM -->
</document>