Evaluated proc clnick nick {trim [regsub -all {(\W)} [strip_all $nick] ""]}