while ((my $line = <INFILE>) && ($line !~ /SEQ.../))