# https://es.stackoverflow.com/q/130214/127
data <- c("CASOSO"," ARBOSO","TOCO","POCO","LEJOS")
gsub("O(?:S(O))?\\b", "\\1", data, perl=TRUE)
IyBodHRwczovL2VzLnN0YWNrb3ZlcmZsb3cuY29tL3EvMTMwMjE0LzEyNwoKZGF0YSA8LSBjKCJDQVNPU08iLCIgQVJCT1NPIiwiVE9DTyIsIlBPQ08iLCJMRUpPUyIpICAKZ3N1YigiTyg/OlMoTykpP1xcYiIsICJcXDEiLCBkYXRhLCBwZXJsPVRSVUUp