I guess I'd have used a combination of shell and Perl:

for i in *(.) ; do perl -pi -e 's/your substitution/here/' ; done