Evaluated proc remext ok {regsub {\..+?$} $ok ""}