while ( my $term = <F1> ) {