x <- c("1 primary, pupils", "2 PRIMARY,pupils tex", "no value")
grepl("primary,[[:space:]]*pupils", x,ignore.case=TRUE)
grep("primary,[[:space:]]*pupils", x,ignore.case=TRUE, value=TRUE)
eCA8LSBjKCIxIHByaW1hcnksIHB1cGlscyIsICIyIFBSSU1BUlkscHVwaWxzIHRleCIsICJubyB2YWx1ZSIpCmdyZXBsKCJwcmltYXJ5LFtbOnNwYWNlOl1dKnB1cGlscyIsIHgsaWdub3JlLmNhc2U9VFJVRSkKZ3JlcCgicHJpbWFyeSxbWzpzcGFjZTpdXSpwdXBpbHMiLCB4LGlnbm9yZS5jYXNlPVRSVUUsIHZhbHVlPVRSVUUp