Is there a Perl shortcut to count the number of matches in a string?

Question

Suppose I have:

my $string = \"one.two.three.four\";

How should I play with context to get the number of times the pattern found a match (3

Answer 1

another way,

my $string = "one.two.three.four";
@s = split /\./,$string;
print scalar @s - 1;