Programming-Idioms - String Length - Perl

strlen.pl

use strict;
use warnings;

use 5.010;
binmode STDOUT, ":utf8";    # print utf-8 to the terminal
use utf8;                   # program text is utf-8 encoded

my $s = "été";
my $n = length $s;
say "$s => $n";