TCL: replace character in the string

set a 1.2.3
puts [string map { . "" } $a]
# 123