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