while ($s = ReadLine($fh) && $s !~ /^$/) {