while ( my $line = <> ) {