use Encode;

print length('ä'), "\n";
print length Encode::decode("UTF-8", "ä"), "\n";