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