x<-"Saint  A/74/PV.46 12/12/2019 4/66 19-40538 Lucia"
paste(unlist(regmatches(x, gregexpr("(?<!\\S)\\p{L}+(?!\\S)", x, perl=TRUE))), collapse=" ")