Select Code to Download

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

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

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

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

    $1 => $2;

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

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

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

    my $tmp = '';
    foreach ( split /;/, $Elm ) {
...
    }
    $Elm = $tmp;
    cond_broadcast($Elm);