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