use XML::LibXML;
my $str = "<flower>r\x{16f}\x{17e}e</flower>"; 
my $doc = XML::LibXML->new->parse_string($str);
warn "Document ", $doc->toString, "\n";
warn "Encoding ", $doc->encoding, "\n";