perl4

Supongamos que tengo: my $string = "one.two.three.four"; ¿Cómo debo jugar con el contexto para obtener el número de vece ... number, forzaría el contexto del array, y por el uso de scalar, obtendría el recuento. Sin embargo, todo lo que consigo es 1.