while(<STDIN>){
  print qq{1:$_};
  while(<STDIN>){
    print qq{2:$_};
    last if $_ eq qq{\n};
  }
  print qq{3:$_\n};
}
をPerl 5.8.8で実行して内側のループを改行のみの入力で抜けた後の3:の値が
1:の時となぜか異なるのですが、$_のスコープみたいなものはどうなっちゃってるんでしょうか？