use Encode; 
print length Encode::encode_utf8(chr 199);