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;


##</code><code>##

SV = PV(0xd9ae08) at 0x25809b0
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x260a4e8 "\303\245\303\244\303\266"\0
  CUR = 6
  LEN = 10
  COW_REFCNT = 1
SV = PV(0xd9add8) at 0x2580248
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK,UTF8)
  PV = 0x260a068 "\303\245\303\244\303\266"\0 [UTF8 "\x{e5}\x{e4}\x{f6}"]
  CUR = 6
  LEN = 10
  COW_REFCNT = 1
SV = PV(0xd9afe8) at 0x2580a40
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK,UTF8)
  PV = 0x2767378 "\303\245\n"\0 [UTF8 "\x{e5}\n"]
  CUR = 3
  LEN = 10
  COW_REFCNT = 1
е