sprintf seems to do the right thing.

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

I hope this is helpful.

Thanks, just what I needed.