while (<INFILE>) {
	s/([A-Za-z])\1/$1/g;
}