diff options
Diffstat (limited to 'emojitrans2.pl')
-rwxr-xr-x | emojitrans2.pl | 5 |
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>/; + } } |