Select Code to Download

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

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

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