while (<>) { .. }

##</code><code>##

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