sub foo {
    ...
    while (<$fh>) {   # XXX Changes $_
        ...
    }
    ...
}

##</code><code>##

sub foo {
    ...
    local $_;
    while (<$fh>) {
        ...
    }
    ...
}