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

##</code><code>##

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


##</code><code>##

$foo =~ s{ \( ( [^()]* ) \) }{ ( my $x = $1 ) =~ tr/\n//d; $x }gex;