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