while (defined( $_ = <> )) {
   ...
}