Select Code to Download

local $_ = $string;
my $total;
...
}
my $other = length($_) - $total;
print "Other: $other\n";

local $_ = $string;
local %count;
s/([ACGT])/$count{$1}++;$1/ge;