fork(1) download
  1. s <- c("ABC1.2", "22A.2", NA)
  2. gsub("[.][\\s\\S]*$", "", s, perl=T)
Success #stdin #stdout 0.46s 22816KB
stdin
Standard input is empty
stdout
[1] "ABC1" "22A"  NA