pattern <- "string"
text1 <- "this is a matching string"
text2 <- "this does not match"