sub deslash { local $_=$_[0]; s/\\(.)/$1/g; $_ }
s/"((?:[^"\\]|\\.)+)"/ deslash($1) /ge;