Select Code to Download

 
perl -i.bak -ne'if($f ne $ARGV[0]){if(defined($f)){print "prepend\n",@
+lines,"append\n"; @lines=();} $f=$ARGV[0]} push @lines,$_;' *.html */
+*.html */*/*.html */*/*/*.html