$ perl -MDevel::Peek -le '$i=8_000_000_000; print Dump($i); \
    $j= ~$i; print Dump($i), Dump($j); \
    $k = ~~$i; print Dump($i), Dump($k)'

SV = NV(0x8175fe8) at 0x8171048
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 8000000000

SV = PVNV(0x818d050) at 0x8171048
  REFCNT = 1
  FLAGS = (NOK,pIOK,pNOK,IsUV)
  UV = 4294967295
  NV = 8000000000
  PV = 0
SV = IV(0x817308c) at 0x81710c0
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 0

SV = PVNV(0x818d050) at 0x8171048
  REFCNT = 1
  FLAGS = (NOK,pIOK,pNOK,IsUV)
  UV = 4294967295
  NV = 8000000000
  PV = 0
SV = IV(0x8173098) at 0x8176c4c
  REFCNT = 1
  FLAGS = (IOK,pIOK,IsUV)
  UV = 4294967295