Разделить вектор строк и вставить подмножество результирующих элементов в новый вектор

Определите

z<- as.character(c("1_xx xx xxx_xxxx_12_sep.xls","2_xx xx xxx_xxxx_15_aug.xls"))

так, что

> z
[1] "1_xx xx xxx_xxxx_12_sep.xls" "2_xx xx xxx_xxxx_15_aug.xls"

Я хочу создать вектор w таким образом, чтобы

> w
[1] "1_12_sep" "2_15_aug"

То есть разделить каждый элемент z на _ , а затем соединить элементы 1,4,5 с удалением .xls из последнее.

Я могу управлять разделенной частью, но не уверен, какую функцию предоставить, например, что-то вроде "

w <- as.character(lapply(strsplit(z,"_"), function(x) ???))