{
  local $/ = "\n\n";
  while(<INPUT1>) {
    my($head,$data) = m< ^ \* ([^\n]+) \n (.*?) $/ >xm;
    push @seqs    => [ split /\n/, $data ];
    push @headers => $head;

    print OUTFILE  "$head\n";
    print OUTFILE2 @{ $seqs[-1] }, "\n";
  }
}