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