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