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