Select Code to Download

s/[()]//g;
@t=split(/\t/,$_);

my $yn = ($count ge 3) ? 'Y' : 'N';
print OUT join("\t", @t[1..4], ${yn}, $t[6..8]), "\n";