while (defined ( my $line = <INPUT>) ) {