{
    my $escape = "\\";
    my $dood = sub { $a=pop;$a=~s/\Q$escape\E(.)/$1/g;$a };
    $string =~ s{(?<!\Q$escape\E)"(.*?)(?<!\Q$escape\E)"}{$dood->($1)}eg;
}