>gb|AE008687|:70-1377, Atu5000
ATGTCTGGACGTAAAGCGAGAATCATGTTGTATCTTTGGCGGGCTTTGGGCGGCAAACCGAACCTTGCCCGCCAAGGGGGCGATATGGCGATAGCGAAGCAGATTGAAGCAACGATCGGTCAAAAGGAAGATGCAGGTGG
>gb|AE008687|:1374-2405, Atu5001
ATGACCAGTAAGTCATCGCGTAAATCCATCGTTGCAAATTTCGGACTGCTGTCGGCGGAGCTTGAAAACC

##</code><code>##

my $in_sequence = 0;
my @gene;
my $dna;

while (<INFILE>)   {

       my $line = $_;
       if ($line =~ /^>/)   {
            # print $line;
            $in_sequence = 1;
      }

      elsif ($in_sequence)  {
        $dna .= $line;
              }
}

print $dna;