while (defined (my $one_line = <>))