local $/ = "\n";
while (<FF>) {