sub strip_color($) {
my $string = shift;
$string =~ s/\x03(?:\d{1,2}(?:,\d{1,2})?)?//g;
$string =~ s/\x0f//g;
$string =~ s/\x04[0-9a-f]{0,6}//ig;
return $string;
}