$permutations_total++ while $string =~ $promoters_regex[$j];