while ( defined( $_ = <$in> ) )