In perl 5.10.0, you can say

while (my $_ = <>) {
}
[download]

and avoid some of the problems that can happen with local when the previous $_ is aliased to something that objects to being localized.

But, no, I don't see while() changing to no longer have the modified $_ available after the loop.