use utf8; $x="\x{0103}"; use bytes; print length($x);