Highlight consecutive duplicated words with Perl
perl -pe 's/\b(\w+)\s+\1\b/\e[31m$&\e[0m/gi' gettysburg.txt
Δ