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