while ( my $line=<FILE> ) { blah }