if (my ($firstword,$rest_of_it) = $line =~/^>(\w+)\s(.+)$/) {
       push @segnames,$firstword;