Bug#707918: $_ scope with nested whiles

[jidanni at jidanni.org]

Egads, maybe they should put an example there on perlvar showing just
how disturbing it can get, e.g.,

open B, "/etc/passwd" or die;
for(0..4){
    print;
    while (<B>) { }
    print;
}