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