%  find  path/
         -name "*.foo"
         -exec perl -p -i~ -e 's/\$Log:/\$History:/g' {} \;