sub merge_data {
	local($_)= join("-", @_);
	s/(.+)-\1/$1/;
	return $_;
}