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