http://www.perlmonks.org?node_id=1075957


in reply to String regex replacement

I assume you just want to "nullify" the last 3 digits of your numbers. You could do it with the following code:

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 w +ith 000 print "-> $in\n"; }
hth! Rata