my $xml = q{<?xml version="1.0" encoding="UTF-8"?><response></response>};
my $dom = XML::LibXML->load_xml(string=>$xml);
my $isEmpty = !$dom->documentElement->nonBlankChildNodes;
print "isEmpty: ", ($isEmpty?"yes":"no"), "\n";
__END__
isEmpty: yes