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