use strict;
use warnings;
use XML::LibXML 2;

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

foreach my $node ( $doc->findnodes('//ReferenceID') )
{
    $node->firstChild->setData("Reference ID type is $node->{reference
+IDType}")
        if $node->{referenceIDType} eq 'FXDD';
}

print $doc->toString;