...
while ( $line = <> )
...