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

##</code><code>##

$string =~ s/"//g;