movies = c('The Kings Of Summer', 'The Words', 'Out Of The Furnace', 'Me And Earl And The Dying Girl')
gsub("(?!^)\\b(Of|In|The)\\b", "\\L\\1", movies, perl=TRUE)
bW92aWVzID0gYygnVGhlIEtpbmdzIE9mIFN1bW1lcicsICdUaGUgV29yZHMnLCAnT3V0IE9mIFRoZSBGdXJuYWNlJywgJ01lIEFuZCBFYXJsIEFuZCBUaGUgRHlpbmcgR2lybCcpCmdzdWIoIig/IV4pXFxiKE9mfElufFRoZSlcXGIiLCAiXFxMXFwxIiwgbW92aWVzLCBwZXJsPVRSVUUp