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