if ($_ =~ /sequence/){
        @headerseq = split('\n',$_);
        print OFILE1 "@headerseq\n";
        }
        elsif ($_ =~ /^(\w*)$/){
        @sequence = $_;
        print OFILE1 "@sequence\n";
        }
        elsif ($_ =~ /secstr/) {
        @headersec = split('\n',$_);
        print OFILE2 "@headersec\n";
        }
        else {
        @secseq = $_;
        print OFILE2 "@secseq\n";
        }