x <- "[APPLE/O.ORANGE*PLUM-11]"
gsub("[^\\w.-]", " ", x, perl=TRUE)