x <- c('I like the pizza', 'The water in the pool', 'the water in the pool')
gsub("(?<!^)\\b(?:the|an?|[io]n|at|with|from)\\b(*SKIP)(*FAIL)|\\b(\\pL)", "\\U\\1", x, perl=T)