(perl #131725) ignore the exponent on a decimal float if no digits