while (($read)=) { ##

##

my $line;
while ( ($line) =  ) {
    print "line: $line";
}
__DATA__
line 1
line 2
line 3

##

##

line: line 1

##

##

while ($read=) {