fork download
  1. x <- "word -o -dod -3 -33 dp-pd -d- --- 140 -- s- S- SS- s3- 3e- 33- 3- s SS avf-ada -"
  2. trimws(gsub("(?:\\S+-\\B|\\B-\\S+|\\B-\\B)\\s*", "", x, perl=TRUE))
Success #stdin #stdout 0.21s 60752KB
stdin
Standard input is empty
stdout
[1] "word dp-pd 140 s SS avf-ada"