$ perl -le'
    $_ = "<?xml version=\"1.0\"?><root>\x{C9}ric</root>";
    print do { use bytes; length };
'
38   XXX Should be 39