library(stringr) x <- c('ondaX', 'ondasX', 'ondasssX', 'onda', 'ondas') str_extract(x, regex('ondas??X')) str_extract(x, regex('ondas*?X'))