Foro - Perl en Español

Ya encontré el error.

Estaba en la línea 3 de la solución con grep(): no se puede poner un comentario dentro de un operador qw().

Lo he corregido arriba, y ahora ya funciona: ya se crean los archivos correctos con el contenido correcto.

Pues con un bucle...