$_ = <FH>;
	chomp;
	if ($_) {
		my @file= split(/:/);
		%data = @file;
	}

##</code><code>##

	my @file = <FH>;
	chomp @file;
	%data = split(/:/, join('', @file));

##</code><code>##

	@file = join(":",%data);
	print FH @file;

##</code><code>##

	my $file = join(":", %data);
	print FH $file;