A oneliner to get you started:

perl -ne 'if (/SEQUENCE\s+(\S+)/) {open FILE, ">", $1 or die; select F
+ILE} 
          next if /^(REMARK|EXPDTA|HEADER2)/; print' your-data-file
[download]