my $amount = 35784.45;
 $amount *= 100;
 print $amount, "\n"; # gives 3578445
 print int($amount); # gives 3578444 (!)

##</code><code>##

$amount =~ s/^(\d+)\.(\d{2})$/$1$2/