$ perl -wE 'say +(1.255 * 100 + 0.5) * 10000000' 1260000000 $ perl -wE 'printf "%.20f\n", (1.255 * 100 + 0.5) * 10000000' 1259999999.99999976158142089844