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 'Hello World'
say $foo->textContent; # says 'Hello World'
my ($bar) = $xml->findnodes('//bar'); # xpath
say $bar; # says ''
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__
Hello World