Select Code to Download

my $count = 0;
my $seqlinec = 2;
...
    }
    $seqlinec += 4;
}

my $count = 0;
while ( <INFILE> ) {
...
    print $_;
    $count = 0  if ($count >= 3);   # reset the counter once we printe
+d line 3 
}