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