>perl -le"printf '%.20e', 38.91
3.89099999999999970000e+001

>perl -le"printf '%.20e', 38.91 * 100
3.89099999999999950000e+003