fork download
copy 
  1. p <- "(?s).*DATE \\d{2}/\\d{2}/\\d{4}(?|\"(.*)\".*|(.*))|.+"
  2. x <- c("LAW Nº 1234/1998 - DATE 01/01/1998\"LAW TITLE HERE MAY CONTAIN 4|_|D4NUM3R!C OR P_NC7U@7|()N\".","LAW Nº 1234/1998 - DATE 01/01/1998LAW TITLE HERE MAY CONTAIN 4|_|D4NUM3R!C OR P_NC7U@7|()N", "Something that does not match")
  3. sub(p, "\\1", x, perl=TRUE)
Success #stdin #stdout 0.22s 60752KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "LAW TITLE HERE MAY CONTAIN 4|_|D4NUM3R!C OR P_NC7U@7|()N"
[2] "LAW TITLE HERE MAY CONTAIN 4|_|D4NUM3R!C OR P_NC7U@7|()N"
[3] ""
https://ideone.com/B7lYS2
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!