push @chat, "$self->{ID}\t$1";

##</code><code>##

	$chat[$i] =~ /(.+?)\s(.+)[\n\r]*/;
	print $socket $2,$EOL if ( $1 ne $ID && $2 ne $kill);

##</code><code>##

	%E = (map { $1 => $2;  /(.+):(.+)/; } (split /;/, $Elm));

##</code><code>##

 
	/(.+):(.+)/;

##</code><code>##

	$1 => $2;

##</code><code>##

	sub _split {
		/(.+):(.+)/;
		return  ($1 => $2) if ($1);
	}

##</code><code>##

	%E = (map { _split($_)  } (split /;/, $Elm));

##</code><code>##

	$Elm =''; # to rewrite $E
	foreach ( split /;/, $Elm ) {
		$Elm .= "$_;" unless ( $_ =~ /^$ID\:/);
	}
	cond_broadcast($Elm);

##</code><code>##

	my $tmp = '';
	foreach ( split /;/, $Elm ) {
		$tmp .= "$_;" if ( $_ !~ /^$ID\:/ && $_ =~/:/);
	}
	$Elm = $tmp;
	cond_broadcast($Elm);