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