perl -e "printf '%.16f', 0 + (1*12345 - 0.9999*12345)" 1.2345000000004802