Select Code to Download

$ perl -le'
    $_ = "<?xml version=\"1.0\"?><root>\x{C9}ric</root>";
...
'
39
39

$ perl -le'
    $_ = "<?xml version=\"1.0\"?><root>\x{C9}ric</root>";
...
'
39
41   XXX Should be 39

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