C:\WINDOWS\system32>perl -MNumber::FormatEng=format_pref -le "print format_pref($_) for 0.9999999994e-33, 0.9999999995e-33, 0.9999999996e-33" 999.999999e-36 999.999999e-36 1000e-36