x <- c("ab", "abc", "abcc", "abccc", "abcccc", "abccccc")
grep(pattern="(^|[^c])c{2,3}([^c]|$)", x, value=TRUE)
grep(pattern="(?<!c)c{2,3}(?!c)", x, value=TRUE, perl=TRUE)
eCA8LSBjKCJhYiIsICJhYmMiLCAiYWJjYyIsICJhYmNjYyIsICJhYmNjY2MiLCAiYWJjY2NjYyIpCmdyZXAocGF0dGVybj0iKF58W15jXSljezIsM30oW15jXXwkKSIsIHgsIHZhbHVlPVRSVUUpCmdyZXAocGF0dGVybj0iKD88IWMpY3syLDN9KD8hYykiLCB4LCB2YWx1ZT1UUlVFLCBwZXJsPVRSVUUp