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