C:\>perl -MDevel::Peek -e "$x = 0.5; qq/$x/; Dump $x"
SV = PVNV(0x38bb4) at 0xd217cc
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  IV = 0
  NV = 0.5
  PV = 0xd16014 "0.5"\0
  CUR = 3
  LEN = 28

C:\>perl -MDevel::Peek -e "$x = 0; qq/$x/; Dump $x"
SV = PVIV(0xd200c4) at 0xd2685c
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 0
  PV = 0xd16274 "0"\0
  CUR = 1
  LEN = 10