x <- "I know \U0001F621\U0001F923s"
regmatches(x, gregexpr("[^[:ascii:]]+", x, perl=TRUE))