SV = PV(0x6bcea8) at 0x26485f0
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x28229e8 "\357\273\277[\"wh\303\244t\",\"\303\266ver\"]"\0 [UTF8 "\x{feff}["wh\x{e4}t","\x{f6}ver"]"]
  CUR = 20
  LEN = 22
SV = PV(0x6bcea8) at 0x26485f0
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x28227e8 "[\"wh\303\244t\",\"\303\266ver\"]"\0 [UTF8 "["wh\x{e4}t","\x{f6}ver"]"]
  CUR = 17
  LEN = 24
("\$data: ", ["wh\xE4t", "\xF6ver"]) at d:/perl/pm/t_devel_peek.pl line 21.
SV = PV(0x6bd158) at 0x27482a0
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x281d9c8 "[\"wh\303\244t\",\"\303\266ver\"]"\0 [UTF8 "["wh\x{e4}t","\x{f6}ver"]"]
  CUR = 17
  LEN = 66
$str eq $str2: 1 at d:/perl/pm/t_devel_peek.pl line 28.