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