my $str = "thisthis";
if ( my $n = ($str =~ m/this/g) ) {
    print qq{Found $n occurrence(s) of "this"\n};
}