while (my $line = <$file>) {
     # ...
}