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

##</code><code>##

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

##</code><code>##

{  no warnings 'numeric';
   $permutations_total += $string =~ /$promoters_regex[$j]/g;
}