# abres el fichero
open(INPUT, "fichero.txt");
# guardas todo el contenido del fichero en una variable
@contenido = <INPUT>;
# cierras el fichero
close(INPUT);
# recorres los datos del fichero
foreach $linea (@contenido) {
chop($linea);
# se busca la línea que contiene el texto que nos interesa
if ($linea =~ /b$texto/i) {
push(@nuevosdatos, $linea . "n");
# Si se ha encontrado el texto, aquí añadirías las líneas que quieres insertar
push(@nuevosdatos, "Nueva linea 1n");
push(@nuevosdatos, "Nueva linea 2n");
push(@nuevosdatos, "Nueva linea 3n");
}
else {
# se deja la línea como estaba
push(@nuevosdatos, $linea . "n");
}
}
# Ahora vuelcas los nuevos datos en el fichero, borrando los datos que contenía anteriormente
open(OUTPUT, "+< fichero.txt");
foreach $linea (@nuevosdatos) {
print OUTPUT $linea;
}
close(OUTPUT);