Help for this page
/^SEQRES[\s]{2,5}1\s/
/^SEQRES[\s]{2,5}2\s/
while ($line=<INFILE>, $line ne ~/^SEQRES[\s]{2,5}2\s/) { ... } }