[0] Perl> use Devel::Peek;;
[0] Perl> Dump $x;;
SV = NULL(0x0) at 0x3c6d400
  REFCNT = 1
  FLAGS = ()

##</code><code>##

[0] Perl> $x = ~0;;
[0] Perl> Dump $x;;
SV = IV(0x3c6d3f8) at 0x3c6d400
  REFCNT = 1
  FLAGS = (IOK,pIOK,IsUV)
  UV = 18446744073709551615

##</code><code>##

[0] Perl> $x += 2;;
[0] Perl> Dump $x;;
SV = PVNV(0x3cb85e8) at 0x3c6d400
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  IV = -1
  NV = 1.84467440737096e+019
  PV = 0

##</code><code>##

[0] Perl> $x **=35;;
[Result too large] Perl> Dump $x;;
SV = PVNV(0x3cb85e8) at 0x3c6d400
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  IV = -1
  NV = 1.#INF
  PV = 0

##</code><code>##

[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