$rhs .= "hello";

$i = "\n";

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

$rhs .= "world";

print("$rhs\n");   # Prints: hello.world