sentences <- c("department of work and pensions", "and pensioners", "pensioners", "Pensions", "suspension")
grepl("\\bdepartment of work and \\w+(*SKIP)(*F)|\\bpension", ignore.case = T, perl = T, sentences)