while (my $line = <FILE>) {
    # do stuff
}