while (<$IN>) {
    next if /^\s*@/;
    my @F = split("\t", $_);