encoding

martin@babylon MINGW64 /
$ perl -E 'use Devel::Peek; use utf8; say my $a = "?"; Dump $a; say unpack("H*", $a)'
Wide character in say at -e line 1.
?
SV = PV(0x600004250) at 0x6000615a8
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK,UTF8)
  PV = 0x600071180 "\342\234\250"\0 [UTF8 "\x{2728}"]
  CUR = 3
  LEN = 10
  COW_REFCNT = 1
28

martin@babylon MINGW64 /
$ perl -E 'use Devel::Peek; ; say my $a = "?"; Dump $a; say unpack("H*", $a)'
?
SV = PV(0x600004250) at 0x600061148
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x60006a080 "\342\234\250"\0
  CUR = 3
  LEN = 10
  COW_REFCNT = 1
e29ca8

✨