my $x ='Ù';
print length($x), "\n"; # prints 2