use v5.12;
use warnings;
use Devel::Peek;
#use open OUT => qw{:encoding(UTF-8) :std};


my $t4 = "\N{LATIN SMALL LETTER A WITH RING ABOVE}\n";
Dump $t4;
warn "t4: ",$t4;
__DATA__



##</code><code>##

SV = PV(0xe7ae08) at 0xd308f0
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK,UTF8)
  PV = 0x2742188 "\303\245\n"\0 [UTF8 "\x{e5}\n"]
  CUR = 3
  LEN = 10
  COW_REFCNT = 1
t4: å