Gibt es eine Perl-Verknüpfung, um die Anzahl der Übereinstimmungen in einer Zeichenfolge zu zählen?

Angenommen, ich habe: my $string = "one.two.three.four"; Wie soll ich mit dem Kontext spielen, um zu ermitteln, wie oft das Muster eine Übereinstimmung gefunden hat (3)? Kann dies mit einem Einzeiler erfolgen? Ich habe es versucht: my ($number) = scalar($string=~/\./gi); Ich dachte, wenn...