while (defined(my $line = <FILE>)) {
        # Do something with the $line
    }