C:\>perl -wMstrict -MDevel::Peek -e "my$x=qq{\n};Dump($x)"
SV = PV(0x32aa98) at 0x577ef8
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x556ba4 "\n"\0
  CUR = 1
  LEN = 10
  COW_REFCNT = 1