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