rename files in tcl

foreach file [glob foo.*] {file rename $file [string map {foo bun} $file]}