$s = "\x{100}";;
print do{ use bytes; length $s } . ' : ' .  length $s;;

2 : 1