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