use strict; use warnings; use XML::LibXML 2; my $xml = 'XML::LibXML'->load_xml(IO => \*DATA); $_->{value}++ for $xml->findnodes('//key[@name="Repetitions"]'); print $xml->toString; __DATA__ ...