in reply to Re^2: How to match the sequences with headers
in thread How to match the sequences with headers

At the beginning of your program put in $/="\n\n";

Then inside the while loop if $_ matches 'sequence' print $_ to out1; if it matches 'secstr' print $_ to out2.