use v5.12;
use warnings;
use Data::Dump;


my $t1='едц';
ddx $t1;
say "length: ",length $t1;

use utf8;

my $t2='едц';
ddx $t2;
say "length: ",length $t2;



##</code><code>##

# demo_utf8.pl:8: "\xC3\xA5\xC3\xA4\xC3\xB6"                <-- bytes
length: 6
# demo_utf8.pl:14: "\xE5\xE4\xF6"                           <-- code points
length: 3