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