RegExp: Zahl x durch x Unterstreichungszeichen ersetzen

[alligator]

hook,

ich würd das jetzt auf die schnelle so machen:

$text = "blabla_11_irgendwas";
$text=~m/_(\d+)_/;
$ersatz= _ x $1;
$text=~s/_(\d+)_/$ersatz/;

Gibt aber bestimmt besseres, aber bei Perl darf man ja alles, wenn es funktioniert :o)

P.S.: Im Regex selbst greift man mit \1 auf das in der Klammer erkannte Muster
zu.

cya
alligator