perl -E ' say sprintf q{%.0f}, $_ for 2.99999, 2.49999, 3, -2.99999, -2.49999, 5279.8012;' 3 2 3 -3 -2 5280 $