If your example is not a simplified case to illustrate your problem you could also use

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