gsub("((?i:foo)|BAR)", "<\\1>", "fooFOOfOoFoOBARBARbarbarbAr", perl=TRUE)
Standard input is empty
[1] "<foo><FOO><fOo><FoO><BAR><BAR>barbarbAr"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!