Lo que quiero hacer es incrementar una variable o imprimir algo solo si la expresión regular me reconoce un patrón. Ejemplo:
Using perl Syntax Highlighting
my $cant=1;
$_="hola mundo hola";
/(.*?)\smundo\s\1(?{print "casa";$cant++;})/;
$_="hola mundo hola";
/(.*?)\smundo\s\1(?{print "casa";$cant++;})/;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Probé con eso pero no me anda, o sea, que solo si me reconoce "hola mundo hola" me imprima "casa" y me incremente $cant, pero no me funciona,
¿cómo lo puedo hacer?
Gracias.