This will tell you what the decimal separator is on the system
(setq d_sep (vl-registry-read "HKEY_USERS\\.DEFAULT\\Control Panel\\International" "sDecimal"))
Using the Replace Method, this regex and replacement string will return the inserted string with all instances of (digit,digit) replaced with (digit.digit)
"(\\d),(\\d)" "$1.$2"