while ( $line = <> )