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