$ find /path/to/files -name "*.txt" -exec -perl -p -i -e 's/these/those/i' {} \;