fork download
copy 
  1. a <- c("I Like What I Know 1959 02e pdfDrama (amazon.com)","My Life 1993 07e pdfDrama (amazon.com)", "I Like What I Know 1959 02e pdfDrama more words (amazon.com)")
  2. gsub("(?:(?=\\b\\d{4}\\b)|\\G(?!\\A))\\s*\\K\\b(\\S+)", "(\\1)", a, perl=TRUE)
Success #stdin #stdout 0.21s 60752KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "I Like What I Know (1959) (02e) (pdfDrama) (amazon.com)"               
[2] "My Life (1993) (07e) (pdfDrama) (amazon.com)"                          
[3] "I Like What I Know (1959) (02e) (pdfDrama) (more) (words) (amazon.com)"
https://ideone.com/Tx0HEP
language:
R (R 3.5.2)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!