- 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)) 
				dGV4dF8xIDwtIGMoJ09sw6EsIG1ldSBub21lIMOpIFN0YWNrIE92ZXJGbG93LiBTb3UgdW0gc2l0ZSBkZSBwcm9ncmFtYcOnw6NvIHBhcmEKICAgICAgICBlbnR1c2lhc3RhcyBlIHByb2Zpc3Npb25haXMnKQogICAgICAgIApsaWJyYXJ5KHN0cmluZ3IpCgpzdHJfZXh0cmFjdF9hbGwodGV4dF8xLCAKICAgICAgICAgICAgICAgIHJlZ2V4KHBhdHRlcm4gPSAnZi4qJywgCiAgICAgICAgICAgICAgICBpZ25vcmVfY2FzZSA9IFRSVUUsIAogICAgICAgICAgICAgICAgZG90YWxsID0gVFJVRSkp