my $n = $str =~ m/this/g;