while ($line = <INPUT>) {