s <- "NOOOOO//ABCDEFGHI/asdfasd//sdkksksks"gsub("/{2,}(*SKIP)(*F)|/", " ", s, perl=TRUE)
Standard input is empty
[1] "NOOOOO//ABCDEFGHI asdfasd//sdkksksks"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!