%perl -e '@list = `find . -name "*.htm"`; foreach (@list) {`chmod 644 $_`}'