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"))
c3RyaW5nIDwtICJhYmNkIExhc3RNYXRjaCDQoNCe0JTQmNCd0JAiCnVubGlzdChyZWdtYXRjaGVzKHN0cmluZyxncmVnZXhwcigiKCpVQ1ApXFxiXFxwe0x9K1xcYiIsc3RyaW5nLCBwZXJsPVRSVUUpKSkKbGlicmFyeShzdHJpbmdyKQp1bmxpc3Qoc3RyX2V4dHJhY3RfYWxsKHN0cmluZywiXFxiXFxwe0x9K1xcYiIpKQo=