library(stringr)
 
    x <- "There is a horror movie running in the iNox theater. : If row names are supplied of length one and the data 
    frame has a single row, the row.names is taken to specify the row names and not a column (by name or number). 
    If row names are supplied of length one and the data frame has a single row, the row.names is taken to specify 
    the row names and not a column (by name or number) Can we go : Please"
 
 
    y <- "There is a horror movie running in the iNox theater. If row names are supplied of length one and the data 
    frame has a single row, the row.names is taken. To specify the row names and not a column. By name or number. : 
    If row names are supplied of length one and the data frame has a single row, the row.names is taken to specify 
    the row names and not a column (by name or number) Can we go : Please"
 
    z <- "There is a horror movie running in the iNox theater. If row names are supplied of length one and the data frame has a single row, the row.names is taken to specify the row names and not a column (by name or number). 
    If row names are supplied of length one. : And the data frame has a single row, the row.names is taken to specify 
    the row names and not a column (by name or number) Can we go : Please"             
 
 
df <- data.frame(Text = c(x, y, z), row.names = NULL, stringsAsFactors = F)
 
resDF <- data.frame("Col1" = character(), "Col2" = character(), stringsAsFactors=FALSE)
 
   processData <- function(a) {
        patt <- "^(?s)(?!(?:(?:[^:]*?\\.){3,}))(.*?):(.*)$"    
        if(grepl(patt,a,perl=TRUE))
        {
            result<-str_match(a,patt)    
            col1<-result[2]
            col2<-result[3]
        }
        else
        {
            col1<-"NA"
            col2<-a
        }
       return(c(col1,col2))
 
    }
 
 
 
for (i in 1:nrow(df)){
tmp <- df[i, ]
resDF[nrow(resDF) + 1, ] <- processData(tmp)
}    
 
 
print(resDF)
 
 

bGlicmFyeShzdHJpbmdyKQoKICAgIHggPC0gIlRoZXJlIGlzIGEgaG9ycm9yIG1vdmllIHJ1bm5pbmcgaW4gdGhlIGlOb3ggdGhlYXRlci4gOiBJZiByb3cgbmFtZXMgYXJlIHN1cHBsaWVkIG9mIGxlbmd0aCBvbmUgYW5kIHRoZSBkYXRhIAogICAgZnJhbWUgaGFzIGEgc2luZ2xlIHJvdywgdGhlIHJvdy5uYW1lcyBpcyB0YWtlbiB0byBzcGVjaWZ5IHRoZSByb3cgbmFtZXMgYW5kIG5vdCBhIGNvbHVtbiAoYnkgbmFtZSBvciBudW1iZXIpLiAKICAgIElmIHJvdyBuYW1lcyBhcmUgc3VwcGxpZWQgb2YgbGVuZ3RoIG9uZSBhbmQgdGhlIGRhdGEgZnJhbWUgaGFzIGEgc2luZ2xlIHJvdywgdGhlIHJvdy5uYW1lcyBpcyB0YWtlbiB0byBzcGVjaWZ5IAogICAgdGhlIHJvdyBuYW1lcyBhbmQgbm90IGEgY29sdW1uIChieSBuYW1lIG9yIG51bWJlcikgQ2FuIHdlIGdvIDogUGxlYXNlIgoKCiAgICB5IDwtICJUaGVyZSBpcyBhIGhvcnJvciBtb3ZpZSBydW5uaW5nIGluIHRoZSBpTm94IHRoZWF0ZXIuIElmIHJvdyBuYW1lcyBhcmUgc3VwcGxpZWQgb2YgbGVuZ3RoIG9uZSBhbmQgdGhlIGRhdGEgCiAgICBmcmFtZSBoYXMgYSBzaW5nbGUgcm93LCB0aGUgcm93Lm5hbWVzIGlzIHRha2VuLiBUbyBzcGVjaWZ5IHRoZSByb3cgbmFtZXMgYW5kIG5vdCBhIGNvbHVtbi4gQnkgbmFtZSBvciBudW1iZXIuIDogCiAgICBJZiByb3cgbmFtZXMgYXJlIHN1cHBsaWVkIG9mIGxlbmd0aCBvbmUgYW5kIHRoZSBkYXRhIGZyYW1lIGhhcyBhIHNpbmdsZSByb3csIHRoZSByb3cubmFtZXMgaXMgdGFrZW4gdG8gc3BlY2lmeSAKICAgIHRoZSByb3cgbmFtZXMgYW5kIG5vdCBhIGNvbHVtbiAoYnkgbmFtZSBvciBudW1iZXIpIENhbiB3ZSBnbyA6IFBsZWFzZSIKCiAgICB6IDwtICJUaGVyZSBpcyBhIGhvcnJvciBtb3ZpZSBydW5uaW5nIGluIHRoZSBpTm94IHRoZWF0ZXIuIElmIHJvdyBuYW1lcyBhcmUgc3VwcGxpZWQgb2YgbGVuZ3RoIG9uZSBhbmQgdGhlIGRhdGEgZnJhbWUgaGFzIGEgc2luZ2xlIHJvdywgdGhlIHJvdy5uYW1lcyBpcyB0YWtlbiB0byBzcGVjaWZ5IHRoZSByb3cgbmFtZXMgYW5kIG5vdCBhIGNvbHVtbiAoYnkgbmFtZSBvciBudW1iZXIpLiAKICAgIElmIHJvdyBuYW1lcyBhcmUgc3VwcGxpZWQgb2YgbGVuZ3RoIG9uZS4gOiBBbmQgdGhlIGRhdGEgZnJhbWUgaGFzIGEgc2luZ2xlIHJvdywgdGhlIHJvdy5uYW1lcyBpcyB0YWtlbiB0byBzcGVjaWZ5IAogICAgdGhlIHJvdyBuYW1lcyBhbmQgbm90IGEgY29sdW1uIChieSBuYW1lIG9yIG51bWJlcikgQ2FuIHdlIGdvIDogUGxlYXNlIiAgICAgICAgICAgICAKCgpkZiA8LSBkYXRhLmZyYW1lKFRleHQgPSBjKHgsIHksIHopLCByb3cubmFtZXMgPSBOVUxMLCBzdHJpbmdzQXNGYWN0b3JzID0gRikKCnJlc0RGIDwtIGRhdGEuZnJhbWUoIkNvbDEiID0gY2hhcmFjdGVyKCksICJDb2wyIiA9IGNoYXJhY3RlcigpLCBzdHJpbmdzQXNGYWN0b3JzPUZBTFNFKQoKICAgcHJvY2Vzc0RhdGEgPC0gZnVuY3Rpb24oYSkgewogICAgICAgIHBhdHQgPC0gIl4oP3MpKD8hKD86KD86W146XSo/XFwuKXszLH0pKSguKj8pOiguKikkIiAgICAKICAgICAgICBpZihncmVwbChwYXR0LGEscGVybD1UUlVFKSkKICAgICAgICB7CiAgICAgICAgICAgIHJlc3VsdDwtc3RyX21hdGNoKGEscGF0dCkgICAgCiAgICAgICAgICAgIGNvbDE8LXJlc3VsdFsyXQogICAgICAgICAgICBjb2wyPC1yZXN1bHRbM10KICAgICAgICB9CiAgICAgICAgZWxzZQogICAgICAgIHsKICAgICAgICAgICAgY29sMTwtIk5BIgogICAgICAgICAgICBjb2wyPC1hCiAgICAgICAgfQogICAgICAgcmV0dXJuKGMoY29sMSxjb2wyKSkKICAgICAgICAKICAgIH0KICAgIAoKCmZvciAoaSBpbiAxOm5yb3coZGYpKXsKdG1wIDwtIGRmW2ksIF0KcmVzREZbbnJvdyhyZXNERikgKyAxLCBdIDwtIHByb2Nlc3NEYXRhKHRtcCkKfSAgICAKCgpwcmludChyZXNERikKCiAgICA=