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