Perl file search, loc, action

Find a file with the text and take the action on it. (in this case do a clearcase checkout)

find ./ | xargs perl -ne 'print "cleartool co -nc $ARGV\n" if m/endl/' | uniq | sh