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;