Select Code to Download

use strict;
my $value = "A\tB\tC\tD\tE\tF\t\t\t\t";
my @flds;
@flds = split(/\t/,$value);
$flds[16] = undef;
$flds[8] = 0;