use XML::LibXML 2.00; my $dom = XML::LibXML->load_xml(IO => \*DATA); my $answer = $dom->getElementsByTagName('answer')->get_node(1); $answer->parentNode->removeChild($answer); print $dom; __DATA__ http:.... value 1 http:.... value 2