Select Code to Download

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 }'