note choroba In the for-loop, you are printing <c>$_</c>. You probably meant <c>$lines[$i]</c>. <p> The more Perlish way would be<c> print "$_\n" for @lines; </c> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-832495"> &#1604;&#1405;&#4285;† &#6514;&#6482;&#9898;&#10186;&#4281;&#5651;&#5511; &#5045;&#5651;&#5511;&#9137; &#4281;&#6514;&#119243;&#409;&#5651;&#5511; </div></div> 1002321 1002321