Select Code to Download

sub count_possible_mutation_locations(\$)
{
    my $sr = shift;
    scalar( () = $$sr =~ /[ct](?=[ct])/g )
}