Something like:

my @firstwords = map { /^>(\w+)/ ? $1 : '#ERR#' } @segnames;
[download]

In the above, if the string doesn't start with /^>(\w+)/ then the string "#ERR#" is used as the first word.