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