my @strings=("500", "988", "1210", "1300", "2000");

foreach my $in (@strings)
{
	print "$in ";
	$in =~ s/(\d\d\d)$/000/;  # take the last 3 digits, replace them with 000
	print "-> $in\n";
}