if ($message[$rand] =~ /\[URL="/) {
                        @split = split(/"]/, $message[$rand]);
                                if (defined $split[2]) {
                                        $split[1] .= "\"]" . $split[2];
                                }
                                if (defined $split[3]) {
                                        $split[1] .= "\"]" . $split[3];
                                }
                        $split[1] = "\"]" . "[COLOR=\"$colors[rand($colorSize)]\"]" . $split[1] . "[/COLOR]";
                        $message[$rand] = $split[0] . $split[1];
                }