$count = scalar map {1} ($str =~ m/pattern/g);
$count = scalar @{[$str =~ m/pattern/g]};
$count = ($str =~ s/pattern/$1/g);