C:\test>\perl5.18\perl\bin\perl.exe -le"printf qq[%f : %f\n], $_ % 10, ( $_ / 10 ) for 9_000_000_000_000_000_011, 10_000_000_000_000_000_011" 1.000000 : 900000000000000000.000000 1.000000 : 1000000000000000000.000000