use vector of patterns for str_split, but at the same time exclude certain patterns

Question

Assume the following data:

df <- data.frame(x = c("text, mail", "app.phone", "phone-text-mail", "e-mail", "e-mail,