#!/usr/bin/perl -w

use strict;

while (<>) {
	my $temp = '';
	print join ('',
		map { 
			if ($_ eq $temp) {
				$temp = '';
			} else {
				$temp = $_;
			}
		} split('', $_)
	);
}