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