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

##</code><code>##

hello
there

##</code><code>##

hello.there