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