for (@promoters_regex) {
        $total++ while $string =~ $_;
    }