/^SEQRES[\s]{2,5}1\s/

##</code><code>##

/^SEQRES[\s]{2,5}2\s/

##</code><code>##

while ($line=<INFILE>, $line ne ~/^SEQRES[\s]{2,5}2\s/)
{
chomp $line;
if ($line=~/^SEQRES[\s]{2,5}1\s/) {	
print "$line\n";
print OUTFILE ("$line\n");
      				           }
		
}