s <- "Ładie, to jakaś ściema!!"
res <- regmatches(s, gregexpr("(*UCP)[\\w']+|[.,;:?!]", s, perl=TRUE))
res