x <- "I know <U+0001F621<U+0001F923>"
regmatches(x, gregexpr("<\\K[^<>]+", x, perl=TRUE))