fish<-c("Dallia_admirabilis","Dallia_pectoralis (Alaska blackfish)","Esox_americanus","Esox_aquitanicus","Esox_cisalpinus","Esox_flaviae (southern pike)","Esox_lucius (northern pike)","Esox_reichertii (Amur pike)","Novumbra_hubbsi","Umbra_krameri (European mudminnow)","Umbra_limi (central mudminnow)","Umbra_pygmaea")
grep("^...umbra",as.character(fish))
fish[grep("^...umbra",as.character(fish))]