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

Is the following code a one-liner?

print $string =~ s/\./\./g;