print $socket $chat[$i], $EOL if ( $1 ne $ID && $2 ne $kill);

##</code><code>##

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

##</code><code>##

	foreach ( @chat[$E{$ID} .. $#chat] ) {
		# spilt into ID and incomming line
		/(.+?)\s(.+)[\n\r]*/;
		# send only line
		print $socket $2,$EOL if ( $1 ne $ID && $2 ne $kill);
	}

##</code><code>##

	print $socket $2,$EOL if ( $2 ne $kill );

##</code><code>##

	g o o l y @ g m x . a t