$char =~ tr/ -~// and $input .= $char