Дмитрий

The solution is simple. When nesting repetition operators, make absolutely sure that there is only one way to match the same match.

https://www.regular-expressions.info/catastrophic.html
А отлаживать регулярки удобно на https://regex101.com/
Там можно не только увидеть готовый результат, но и посмотреть, как именно работает логика регулрного выражения применительно к конкретной строке.

perl -e 'foreach(glob("*")) { $o = $_; s/^(.+)\-\w+(\.\w+)$/\1\2/; rename($o, $_) or die("ERROR: can not rename $o to $_!\n"); }'