$_ = do{ local $/; <DATA> };
s[("[^\n"]+\n[^"]+")][ (my $x = $1) =~ s[\s+][ ]g; $x ]ge;
print;
"boom"
hello "" bill
"baz hello jock"
"boom2"
 abc "baz2 hello2 jock2 "