$line =~ s/"([^"])"/$1/;

##</code><code>##

$line =~ s/^"(.*)"$/$1/;