fork download
  1. x <- c("aaaaaaah" ,"aaaah","ahhhh","cooee","helloee","mmmm","noooo","ohhhh","oooaaah","ooooh","sshh","ummmmm","vroomm","whoopee","yippee")
  2. grep(".*([a-z])\\1.*(?!\\1)([a-z])\\2", x, value=TRUE, perl=TRUE)
Success #stdin #stdout 0.24s 39404KB
stdin
Standard input is empty
stdout
[1] "cooee"   "helloee" "oooaaah" "sshh"    "vroomm"  "whoopee" "yippee"