$x =~ s/([^"])"([^"])/$1""$2/g;