Регулярные выражения в Perl.

[Baaandit]

Есть допустим такая строка fdf43dfe65eer34gdg98rt. Необходимо вторую группу цифр с конца заменить на звездочки,то есть так fdf43dfe65eer**gdg98rt.Пишу так,он только последнюю заменяет с конца.Как можно реализовать?

$str = "fdf43dfe65eer34gdg98rt";
$str =~ s/(\d)$/*/g;

print $str;

[Mastermind]

Так работает:

$str=~s/\d+([a-z]+\d+[a-z]+)$/**$1/g;

[Baaandit]

Спасибо Mastermind работает. Только этот шаблон работает только с этой конкретной строкой.Если такая будет fdf43dfe65eer34gdgrt98 не сработает или такая fdf43dfe65eer34gd g98rt.Я думал над универсальным шаблоном так ничего и не придумал.)