Select Code to Download

my $xp                  = XML::XPath->new(xml => $fpdomaininfo );
my $nodeset             = $xp->find('//cidr-map');
...
        my $ips_as_string       = $node->string_value;
... make changes to ips_as_string ...
}

my $path = '//cidr-map[@name]=';
$path .= "\"$node_name\";
$xp->setNodeText( $path, $ips_as_string );

my $path = '//cidr-map/cidr-map-to[@name]=';
$path .= "\"$node_name\";
$xp->setNodeText( $path, $ips_as_string );

...
<cidr-map name="Internal test" default-datacenter="Default Datacenter"
+>
...
</cidr-map-to>
</cidr-map>
...