fork download
  1. sa<-c("100 dollars for 200 pesos", "100 dollars 200 pesos")
  2. sub(".*dollars\\D*(\\d+).*", "\\1", sa)
Success #stdin #stdout 0.2s 175424KB
stdin
Standard input is empty
stdout
[1] "200" "200"