you should always consider using sprintf() for rounding, e.g.:

$num = 486733;

$num =~ /(\d{3})$/;
my $rnd = $1 / 100;
$rnd = sprintf "%.0f", $rnd;
$rnd .= '00';
$num =~ s/$1/$rnd/;
[download]