text_1 <- c('Olá, meu nome é Stack OverFlow. Sou um site de programação para
        entusiastas e profissionais')
        
library(stringr)

str_extract_all(text_1, 
                regex(pattern = 'f.*', 
                ignore_case = TRUE, 
                dotall = TRUE))