Как заменить определенный символ с первым и следующим номером в строке с помощью tcl-скрипта?

Question

Я хотел бы заменить тире ("-") в строке тире, окруженном пробелом с обеих сторон (" - "), но только если число находится перед и посленайденный тире.

Например,

-1.5-5.3

превратится в

-1.5 - 5.3

Answer 1

% puts [regsub -all {(\d)-(\d|-)} "-1-23--42" {\1 - \2}]
-1 - 23 - -42