El operador '<' es un comparador lógico que significa 'menor que'. En Perl, porque en otros lenguajes sí que significa lo que has querido decirle a Perl: que guarde el valor de $linea dentro de @contenido. Pero en Perl eso se hace con la función
push().
Esta es mi versión:
Using perl Syntax Highlighting
@contenido = <STDIN>;
print @contenido;
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Al ejecutar <STDIN> en contexto lista, todas las líneas son leídas y "metidas" dentro del
array. Luego, solo falta hacer un print(). Los elementos de @contenido saldrán tal cual fueron introducidos.
La solución mínima:
Using perl Syntax Highlighting
print <STDIN>;
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4