#!perl use strict; use warnings; use XML::LibXML; our ($XVal) = ''; my $dom = XML::LibXML->new->parse_file('C:/studio/divers/find.xml'); $dom -> (IO => \*DATA) or die; for my $node ($dom->findnodes('/././././@eu')) {say $node->toString;} $XVal = $dom->get_xpath('/././././[@eu="d"]') {say $XVal->toString;}