string <- "abcd LastMatch РОДИНА"
unlist(regmatches(string,gregexpr("(*UCP)\\b\\p{L}+\\b",string, perl=TRUE)))
library(stringr)
unlist(str_extract_all(string,"\\b\\p{L}+\\b"))