>\progs\perl5142-ap1402\bin\perl -MDevel::Peek -E"$x=chr(0); $x x= 100; Dump substr $x, 50;"
SV = PVLV(0x4de51c) at 0x497b04
  REFCNT = 1
  FLAGS = (TEMP,GMG,SMG)
  IV = 0
  NV = 0
  PV = 0                                   <----- No buffer
  MAGIC = 0x4cc694
    MG_VIRTUAL = &PL_vtbl_substr
    MG_TYPE = PERL_MAGIC_substr(x)
  TYPE = x
  TARGOFF = 50
  TARGLEN = 50
  TARG = 0x4a932c
  SV = PV(0x25603c) at 0x4a932c
    REFCNT = 2
    FLAGS = (POK,pPOK)
    PV = 0x4b36cc "\0\0\0...\0\0\0"\0
    CUR = 100
    LEN = 104