for my $i ( $E{$ID} .. $#chat ) {
       $chat[$i] =~ /(.+?)\s(.+)[\n\r]+/;

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

       #print "> $i\t$1\t$2\n" if ( $1 ne $ID && $2 ne $kill);
   }