while(my $line = <>) {
   do_something($line);
}