x <- "word -o -dod -3 -33 dp-pd -d- --- 140 -- s- S- SS- s3- 3e- 33- 3- s SS avf-ada -"
trimws(gsub("(?:\\S+-\\B|\\B-\\S+|\\B-\\B)\\s*", "", x, perl=TRUE))
eCA8LSAid29yZCAtbyAtZG9kIC0zIC0zMyBkcC1wZCAtZC0gLS0tIDE0MCAtLSBzLSBTLSBTUy0gczMtIDNlLSAzMy0gMy0gcyBTUyBhdmYtYWRhIC0iCnRyaW13cyhnc3ViKCIoPzpcXFMrLVxcQnxcXEItXFxTK3xcXEItXFxCKVxccyoiLCAiIiwgeCwgcGVybD1UUlVFKSk=