iinfinite loop

[David Gilden]

The following seems to never break out of the loop,
any comments?
Thanks

Dave

#!/usr/bin/perl -w


$data = 'some
multi line
string';


    while($data){
      
       push(@everyline, $_);      
        
    }