find <directory list> <predicates> -exec perl -i.bak -pe'...' {} \;