C:\usr\local\share>perl -le "printf qq(%.17e => %s\n), $_, $_ for 2.99999999999999989e-02, 2.99999999999999503e-02, 2.99999999999999468e-02" 2.99999999999999989e-02 => 0.03 2.99999999999999503e-02 => 0.03 2.99999999999999468e-02 => 0.0299999999999999