I get the correct output too (on AS v 5.61 for WinXP). Try updating your perl as Joost suggests.

If you still get strange results, maybe your input file is corrupt in some way? I doubt if this would work, but try putting:

at the top of your while loop.

dave