#!/usr/local/bin/tclsh foreach k [split [exec find ./file_ext -name part.html]] { # exec rm -f $k puts $k }