#!/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";