1 2 3 4 5 6 7 8 9
#!/usr/bin/perl use strict; use warnings; my $text = 'Start ... irgendwas ( wieder_ein_text ( noch_ein_text ) hjghjghj) irgendwas (fghkldfkgh) ... Ende'; while($text=~s/\([^()]*\)//gs){} print "$text\n";