Hallo Beat,
Dann erledige das in einem separaten Schritt.
so?
my $tel = '0 (1 77) / 987 65 43';
$tel =~ s/(\d)[()\/\- ]+(\d)/$1$2/g;
$tel =~ s/(\d)[()\/\- ]+(\d)/$1$2/g;
Führt zwar zum gewünschten Ergebnis, sieht ziemlich unelegant und auch fehleranfällig aus...
Gruß, JOhnnY