find . -type d -print0 | \
perl -i -p0e \
 'BEGIN{ @ARGV = <STDIN>; \
 chomp @ARGV; \
 @ARGV = map{glob "$_/*.html"}; \
 $/ = '' }; \
  while (<>) { s/foo/bar/g; print }'