Why not read the file (or blocks of it, if it's too large to conveniently fit into memory) into a buffer and then process that buffer?

This would add a couple of lines of code, but it would save you thousands of system calls and improve performance immensely.

Looping through a buffer could then be done using substr() or by split()ting the buffer into an @array which you can then foreach() through.