my $n = list $string =~ m/(pattern)/g;