sub count_possible_mutation_locations {
    return scalar ( () = $_[0] =~ /[ct](?=[ct])/g );
}