test<-c("Barry Windham (c) & Mike Rotundo (c)")gsub("(*UCP)\\s+\\(c\\)", "", test, perl=TRUE)
Standard input is empty
[1] "Barry Windham & Mike Rotundo"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!