#! /usr/bin/perl
use strict;
use warnings;

use XML::LibXML;

my $filename = shift;

my $xpc = 'XML::LibXML::XPathContext'->new;
$xpc->registerNs(m => 'urn:mavenir:ns:yang:wrg-sc:6.0.2.8');

my $dom = 'XML::LibXML'->load_xml(location => $filename);

for my $delete ($xpc->findnodes('//m:tmmTableFilenameMap', $dom)) {
    my ($parent) = $delete->findnodes('..');
    $parent->removeChild($delete);
}

print $dom->serialize;

##</code><code>##

open webrtcc_system_static_config_data_platremoved.xml ;
register-namespace m urn:mavenir:ns:yang:wrg-sc:6.0.2.8 ;
delete //m:tmmTableFilenameMap ; 
save :b ;