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