while ($foo =~ s/(\([^)]*)\n(.*?\))/$1$2/gs) {}