use 5.010; use XML::LibXML 1.70 ':all'; my $dom = XML::LibXML-> load_xml(IO => \*DATA); my @nodes = ( (grep { $_->nodeType == XML_DTD_NODE } $dom->childNodes), $dom->findnodes('//node() | //@*'), ); foreach (@nodes) { say "Node name: ", $_->nodeName; say "Node path: ", $_->nodePath; say "---"; } __DATA__