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