1 files changed, 5 insertions, 0 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl
index 2637c19..a4676b6 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -35,6 +35,11 @@ sub splitup {
 }
 
 unless (/^#/) {
+    my $hold=$_;
     s/<MM>/<Multi_key> <Multi_key>/;
     s({([][[:alnum:] _+%@><,.^\$+#()!/-]+)})(splitup($1))e;
+   if (length($1) > 7) {
+       $_=$hold;
+       s/^<MM>/### <MM>/;
+   }
 }