while (sysread FILE, $buffer, 4096) { $lines += ($buffer =~ tr/\n//); } #### while () { $lines++ }