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