perl4

Предположим, у меня есть: my $string = "one.two.three.four"; как я должен играть с контекстом, чтобы получить число раз картина матча (3)? Можно ли это сделать с помощью одного вкладыша? Я попытался это: my ($number) = scalar($string=~/./gi); Я думал, что поставив скобки $number, Я бы принудительно ко...