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

##</code><code>##

while (<$in>) {