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