sub event_message {
    my ( $server, $msg, $nick, @rest ) = @_;

    if ( $msg =~ s{^<\x03[0-9]+(.+?)\x0f> }{} ) {
        # Powyższe jest z wycięciem koloru. Jeśli kolor ma być zachowany, to: s{^<(\x03[0-9]+.+?\x0f)> }{}
        $nick = 'D|' . $1;
        Irssi::signal_continue( $server, $msg, $nick, @rest );
    }
}