if ($i =~ m/[ -~]/)
        {
            $rhs .= $i;
        }
        else
        {
            $rhs .= ".";
        }