$channel_template =< object_1 059c6c8f-52b1-4d3d-8023-f5d333334456 Enabled 059c6c8f-52b1-4d3d-8023-f5d318f30a63 END $parser = XML::LibXML->new(); $parser->keep_blanks(0); $doc = $parser->load_xml(string => $channel_template); $doc->setEncoding('UTF-8'); $root = $doc->documentElement(); #### $output_element = $doc->createElement('out'); #### object_1 059c6c8f-52b1-4d3d-8023-f5d333334456 Enabled 059c6c8f-52b1-4d3d-8023-f5d318f30a63 #### $parser = XML::LibXML->new(); $parser->keep_blanks(0); $doc = $parser->load_xml(string => $channel_template); $doc->setEncoding('UTF-8'); $root = $doc->documentElement(); my ($object_element) = $root->findnodes('//object'); $doc->setDocumentElement($channel_element); $root = $doc->documentElement();