About the perl $_ problem

[sync]

Hi, all :


The followings are the two perl scripts:

t...@camlit ~: cat test1.pl

   1. #!/usr/bin/perl
   2.
   3. while (<DATA>){
   4. print $line if /6/;
   5. $line = $_;
   6. }
   7.
   8. __DATA__
   9. 1
   10. 2
   11. 3
   12. 4
   13. 5
   14. 6
   15. 7
   16. 8

*
*
t...@camlit ~: cat  test2.pl

   1. #!/usr/bin/perl
   2.
   3. while (<DATA>){
   4. print $_ if /6/;
   5. }
   6.
   7. __DATA__
   8. 1
   9. 2
   10. 3
   11. 4
   12. 5
   13. 6
   14. 7
   15. 8

So my problem is what the different about the two scripts ..

Because I am the perl beginner . If the question is very simple,  please
forgive me .


Thanks in advance ...