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">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1002321
1002321