while ($line = <F>) {
    chomp $line;
    ...