$s = "\x{200}\x{400}\x{301}";

print length $s;
3

print do{ use bytes; length $s };
6