perldoc -q count

##</code><code>##

use warnings;
use strict;

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

__END__

Found 2 occurrence(s) of "this"