$ perl -wle'
print length "a";
print length "ä"'
1
1