DB<50> $data = 'Künzler'

  DB<51> print unpack 'H*',$data
4b816e7a6c6572                             # ORLY?
  DB<52> use Data::Dump qw/pp dd/

  DB<53> dd $data
"K\x81nzler"                               # <---

  DB<54> use Devel::Peek

  DB<55> Dump $data
SV = PVNV(0xd9adb8) at 0x351ac30
  REFCNT = 1
  FLAGS = (POK,IsCOW,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x355bcd8 "K\201nzler"\0            # <---
  CUR = 7
  LEN = 10
  COW_REFCNT = 2

  DB<56>