a <- "as\"dfgdf\" sa\"2323\""gsub('"\\K[^"\\s]+(?=")', "", a, perl=TRUE)
Standard input is empty
[1] "as\"\" sa\"\""
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!