while (defined ($_ = readline(*FOO))) { ... }