perl -i -e'print "prepend\n"; print join "", <>; print "append\n";' *.html */*.html */*/*.html */*/*/*.html