fork(2) download
  1. s <- "A12B345CD678"
  2. gsub("(?<=.{7}).*$(*SKIP)(*F)|\\D", "", s, perl=T)
Success #stdin #stdout 0.47s 79168KB
stdin
Standard input is empty
stdout
[1] "12345CD678"