(my $id) = $line =~ /^(>\w+)/;  #allow for kruft after id
    print "$id\t";