use v5.12;
use warnings;
use Devel::Peek;


my $t1='едц';
Dump $t1;

use utf8;

my $t2='едц';
Dump $t2;


my $t3 = "\N{LATIN SMALL LETTER A WITH RING ABOVE}\n";
say $t3;
Dump $t3;