Select Code to Download

   #!/usr/bin/perl -w
   use strict;
...
         $count_A++;
     }
  print $count_A++;

>2
AAAAAAAAACAAAAGAACGAAGAAGT
...
AAAAAAAAACACGACTGTTCGCTTT
>16
AAAAAAAAACACTATGAGCCAGAAC