vec <- c("mcq_q9", "mcq_q10", "mcq_q11", "mcq_q12", "mcq_q1.factor", "mcq_q2.factor", "mcq_q10.factor", "mcq_q11.factor", "mcq_q12.factor")
grep("mcq_q[0-9]+(?![\\d\\.])", vec, perl = T)
dmVjIDwtIGMoIm1jcV9xOSIsICJtY3FfcTEwIiwgIm1jcV9xMTEiLCAibWNxX3ExMiIsICAgIm1jcV9xMS5mYWN0b3IiLCAibWNxX3EyLmZhY3RvciIsICJtY3FfcTEwLmZhY3RvciIsICJtY3FfcTExLmZhY3RvciIsICJtY3FfcTEyLmZhY3RvciIpCmdyZXAoIm1jcV9xWzAtOV0rKD8hW1xcZFxcLl0pIiwgdmVjLCBwZXJsID0gVCkKCgoK