http://www.perlmonks.org?node_id=1002324


in reply to XML parsing

In the for-loop, you are printing $_. You probably meant $lines[$i].

The more Perlish way would be

print "$_\n" for @lines;
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ