Hola. Tengo que hacer un ejercicio que consiste en buscar la subcadena "la" y devolver las dos líneas anteriores y las dos posteriores de un texto.
Yo tengo algo como sigue:
my @solucion = ($cadena =~ m/(.*\n.*\n).*la.*\n(.*\n.*)/g);
Lo aplico al texto siguiente que se lee de un fichero y almaceno en $cadena:
hola este texto
es una prueba para el segundo
ejercicio de entrega
de expresiones regulares
en el que tenemos que encontrar
alguna ...