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