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