Tu sais, j'ai fait la meme reflexion, et donc avant de poster j'ai fait un petit test:


$ perl -e 'print "1\n2\n0"' | perl -le 'while &#40;$x=<>&#41; &#123;print "<$x>" &#125;'
<1
>
<2
>
<0>