bignum

use bignum;
print "150 / 0.75 == ", 150 / 0.75, "\n";
print "(int(150.5)) / 0.75 == ", (int(150.5)) / 0.75, "\n";
print "150 / 3.75 == ", 150 / 3.75, "\n";
print "(int(150.5)) / 3.75 == ", (int(150.5)) / 3.75, "\n";
__END__
150 / 0.75 == 200
(int(150.5)) / 0.75 == 200
150 / 3.75 == 40
(int(150.5)) / 3.75 == 40
[download]

and

use Data::Dump qw/ dd /; use bignum; dd( (int(150.5)) / 3.75 )
__END___
bless({ _e => [1], _es => "+", _m => [4], sign => "+" }, "Math::BigFlo
+at")
[download]