my $s = "\xC2\x85";
print(length($s), "\n");  # 2 iso-latin-1 chars
utf8::decode($s);
print(length($s), "\n");  # 1 character