diff --git a/.Xmodmap b/.Xmodmap
index 94dca43..b76738b 100644
--- a/.Xmodmap
+++ b/.Xmodmap
@@ -95,7 +95,7 @@ keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Kat
 keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan Muhenkan
 keycode 103 =
 keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter KP_Enter
-keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R Control_R
+keycode 105 = Control_R Multi_key Control_R NoSymbol Control_R Control_R
 keycode 106 = KP_Divide KP_Divide KP_Divide KP_Divide KP_Divide KP_Divide XF86Ungrab KP_Divide KP_Divide XF86Ungrab KP_Divide KP_Divide KP_Divide KP_Divide XF86Ungrab KP_Divide KP_Divide KP_Divide KP_Divide XF86Ungrab
 keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req Print Sys_Req
 keycode 108 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R
diff --git a/bin/uncolor b/bin/uncolor
new file mode 100755
index 0000000..5184081
--- /dev/null
+++ b/bin/uncolor
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+while (<>) {
+  s/ \e[ #%()*+\-.\/]. |
+    (?:\e\[|\x9b) [ -?]* [@-~] | # CSI ... Cmd
+    (?:\e\]|\x9d) .*? (?:\e\\|[\a\x9c]) | # OSC ... (ST|BEL)
+    (?:\e[P^_]|[\x90\x9e\x9f]) .*? (?:\e\\|\x9c) | # (DCS|PM|APC) ... ST
+    \e.|[\x80-\x9f] //xg;
+    1 while s/[^\b][\b]//g;  # remove all non-backspace followed by backspace
+  print;
+}