Select Code to Download

   if ($line =~/^>(\w+)\s(.+)$/) {
      push(@seqnames, $1);

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