Like this? $desc =~ s/(\(([^()]|(?R))*\))//g;