local $/=\102400;
while(<FILE>) { $count += tr/\n// }