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