$s =~ s!"([^"]*)"!local $_ = $1; s/\s+/ /g if /\n/; "\"$_\""!seg;