$ perl -wE '$x=35784.45; printf "%.15f\n%s", $x, $x;'
35784.449999999997090
35784.45