foreach ($textline = <LOG>) {

##</code><code>##

foreach my $textline ( <LOG> ) {
# or, much better:
while(  defined( $textline= <LOG> )  ) {