fork download
  1. codes <- c('x0fa319-432f39-4fre78', '23weq0-4fsf198-417203', 'x2431-5435-1242-qewf')
  2. sub("^x\\d", "", codes, ignore.case=TRUE)
Success #stdin #stdout 0.23s 39128KB
stdin
Standard input is empty
stdout
[1] "fa319-432f39-4fre78"   "23weq0-4fsf198-417203" "431-5435-1242-qewf"