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