word<-"xyz9874w9874w"
gsub( "([a-z]+)([0-9]+)([a-z])(\w)", "\1", word )
[1] "xyz874w"
gsub( "([a-z]+)([0-9]+)([a-z])(\w)", "\2", word )
[1] "9874874w"
gsub( "([a-z]+)([0-9]+)([a-z])(\w)", "\3", word )
[1] "w874w"
gsub( "([a-z]+)([0-9]+)([a-z])(\w)", "\4", word )
[1] "9874w"
word<-"xyz9874w9874w"
gsub( "([a-z]+)([0-9]+)([