my %replacement = (
    500     => '000',
    988     => '000',
    1210    => '1000',
    1300    => '1000',
    2134    => '2000,
    2500    => '2000',
);

my $regex = join '|', keys %replacement;

$str =~ s/\b($regex)\b/$replacment{$1}/;