while (my $char = &getchar ) {