Select Code to Download

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

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