$string =~ s/"([^"]+)"?/$1/;