Foro - Perl en Español

Hola, soy nuevo en el tema de programación en general... obviamente también en Perl y tengo la siguiente pregunta:

¿Por qué cuando escribo algo como:

while ($linea = <STDIN>){
chomp $linea;}
print $linea;

la función print no imprime nada en la salida estándar?

Lo que intento hacer es asignar varias líneas (desde entrada estándar) a una sola variable.
Por ejemplo:

Todas esas 4 líneas adjudicárselas a la variable $linea.

De antemano, ¡¡muchas gracias por cualquier ayuda!!

P.D.: No soy formado en ciencias exactas, ¡¡¡entonces me disculparán errores garrafales!!!

Gracias,
Juan Manu

Bienvenido a los foros de Perl en Español, Juan Manu.

El código que has puesto, bien formateado, es este:
Entonces, el bucle recorre todas las líneas que le llegan desde la entrada estándar. Y por cada una de ellas, le quita el carácter/los caracteres de final de línea, y... nada más. Así que, yo supongo que la última línea del código, lo único que hace es sacar la última línea leída de la entrada estándar, nada más.

Si lo que quieres es almacenar todo el archivo en una sola variable, puedes ir acumulando:

Otra forma: leerlo de golpe en un array, quitar todos los finales de línea, y luego unirlo todo en la variable:

Hay más formas...