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))