use strict;
use warnings;
use XML::LibXML;
my $xml_str = <<_XML_STR;
AIX
_XML_STR
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string( $xml_str );
my $query = "//tm";
foreach my $node ( $doc->findnodes($query) ) {
my $val = $node->findvalue( '@tmowner' );
my $txt = $node->textContent();
if( $val !~ /my_company/ ) {
my $parent = $node->parentNode();
$parent->removeChildNodes();
$parent->appendTextNode( $txt );
}
}
print $doc->toString;
####
AIX