find . -type f | /usr/bin/perl -e 'use feature ":5.12"; use File::Slurp; for (<STDIN>) { chomp; $a = read_file ( $_, { binmode => ":raw" } ); $a =~ s/<div>Comments<\/div>/<div class="red">Comments<\/div>/g; write_file ($_, { binmode => ":raw" }, $a); }'