Nebenbei: wenn du die Datei zeilenweise bearbeiten willst, dann die datei nicht mit foreach (<FH>) durchackern, sondern besser mit while (<FH>)...

bei blockweisem lesen bleibt wohl nur read(...)