The Perl functions will treat ^Z as the end of the file and refuse to read beyond it. The trick is to use binmode()

open(INPUT,"infile.txt");
binmode(INPUT);
while(<INPUT>)
  {
    ...
  }
close(INPUT);
[download]

Then your eof() will work. On a system (like UNIX) where there are no silly modes binmode() has no effect.