while (defined($_ = readline *FH)) {