$str =~ s/(\d)\d+/$1/g;