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;