perl -wE '$d1 = "1230.1200"; $d1 = $d1 + 0; printf "%.20f\n", $d1'
1230.11999999999999999556