ЮМ
foo <- "Regex it's"
bar <- "funny"
fiz <- "NOPE"
link <- paste0(foo, "*", bar, "#", fiz)
extracted_foo <- stringr::str_extract(link, "(.*?)(?=\\*)")
extracted_bar <- stringr::str_extract(link, "(?<=\\*)(.*?)(?=\\#)")
extracted_fiz <- stringr::str_extract(link, "(?<=\\#).*")