Frage zu RegEx

[Johnny B.]

Hallo ChrisB,

Bitte drücke dich präzise(r) aus - und zwar gleich von Anfang an.

Ich habe in meinem Beispiel keine Buchstaben verwendet, daß war leider zweideutig.

Also nochmal präzise(r):

my $tel = '0 (1 77) / 560 11 26 abc def (gh)';  
$tel =~ s/(\d)[()\/\- ]+(\d)/$1$2/g;

Ergebnis: 01 775601126 abc def (gh)
gewünschtes Ergebnis: 01775601126 abc def (gh)

Erreichen möchte ich, daß alle zwischen zwei Ziffern stehenden Zeichen ()/- und Leerzeichen gelöscht werden.

Gruß, JOhnnY