while( defined( my $line = <FH> ))