RegExp: Zahl x durch x Unterstreichungszeichen ersetzen

[Christoph]

Moin, moin!

ich würds immer noch so machen:
if ($string =~ m/^(.*\)([0-9]*)(\.*)/)
{
 my $count = 0;
 my $striche;
 while($count < $2)
 {
  $striche=$striche."\_";
  $count++;
 }
 my $ergebnis = $1.$striche.$3;
 print"Ergebnis= $ergebnis";
}

Das hat den großen Vorteil, dass man noch nach 2 Wochen weiß was es macht wund wie es das macht.
so long, wie wir coolen Saarländer sagen [S. Bernarding, 2002]
Christoph