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