s <- c("today john jack and joe go to the beach", "today joe and john go to the beach", "today jack and joe go to the beach")
grepl("today .*\\bjohn\\b.* go to the beach", s)
cyA8LSBjKCJ0b2RheSBqb2huIGphY2sgYW5kIGpvZSBnbyB0byB0aGUgYmVhY2giLCAidG9kYXkgam9lIGFuZCBqb2huIGdvIHRvIHRoZSBiZWFjaCIsICJ0b2RheSBqYWNrIGFuZCBqb2UgZ28gdG8gdGhlIGJlYWNoIikKZ3JlcGwoInRvZGF5IC4qXFxiam9oblxcYi4qIGdvIHRvIHRoZSBiZWFjaCIsIHMp