Evaluated proc capitalise str {regsub -all {(\. [a-z])} $str "X\\1"}