[0] Perl> $x /= $x;;
[0] Perl> Dump $x;;
SV = PVNV(0x3cb85e8) at 0x3c6d400
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  IV = -1
  NV = -1.#IND
  PV = 0