while my $line ( <FILE> ) { ...