C:\>perl -MDevel::Peek -le "$x = 1e6; Dump $x;"
SV = NV(0x488470) at 0x488488
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 1000000

##</code><code>##

C:\>perl -MDevel::Peek -le "$x = 1e6 * 1.0; Dump $x;"
SV = IV(0x4ecb10) at 0x4ecb20
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1000000

##</code><code>##

C:\>perl -MDevel::Peek -le "$x = '1e6' * 1.0; Dump $x;"
SV = IV(0x33d010) at 0x33d020
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1000000

##</code><code>##

C:\>perl -MDevel::Peek -le "$x = '1e70' * 1.0; Dump $x;"
SV = NV(0x576440) at 0x576458
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 1e+70