Select Code to Download

my $num_chars = 0;
<>;
...
    $num_chars += tr/ACGT/ACGT/;
}
print "$num_chars\n";

my @num_chars = ();
my $i = -1;
...
foreach ( @num_chars ) {
    print "$_\n";
}