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