{
    my $escape = "\\";
    $string =~ s/(?<!\Q$escape\E)"//g;
    $string =~ s/\Q$escape\E(?>")/"/g;
}