while ( chomp(my $inpt = <STDIN>) != 0  ) {