#!/usr/bin/perl

$\ = ".\n";

while (<>)
{
	next unless s/\b( [a-zA-Z]+ )((\s|<[^>]+>)+)(\1\b)/\e[7m$1\e[m$2\e[7m$4\e[m/igx;
	
	s/^([^\e]*\n)+//mg;
	s/^/$ARGV: /mg;
	print;
}