x <- c("T12_50;Y13_50;Y3_33", "Y15_100")
library(stringr)
res <- lapply(str_match_all(x, "Y\\d+_(\\d+)"), function(m) m[,-1])
res
regmatches(x, gregexpr("Y\\d+_\\K\\d+", x, perl=TRUE))
eCA8LSBjKCJUMTJfNTA7WTEzXzUwO1kzXzMzIiwgIlkxNV8xMDAiKQpsaWJyYXJ5KHN0cmluZ3IpCnJlcyA8LSBsYXBwbHkoc3RyX21hdGNoX2FsbCh4LCAiWVxcZCtfKFxcZCspIiksIGZ1bmN0aW9uKG0pIG1bLC0xXSkKcmVzCgpyZWdtYXRjaGVzKHgsIGdyZWdleHByKCJZXFxkK19cXEtcXGQrIiwgeCwgcGVybD1UUlVFKSk=