[mar]

а нельзя ли тоже самое, но гораздо проще?

PHP код:

#!/usr/bin/perl

open(testFile, "file.txt") || die;

while ($line = <testFile>)
{
  print $line ;        
}

close ( testFile ); 

При этом все три строки выводятся (хотя последняя, естественно, без признака конца строки