1 files changed, 9 insertions, 0 deletions
diff --git a/emojitrans1.pl b/emojitrans1.pl
new file mode 100755
index 0000000..bc30602
--- /dev/null
+++ b/emojitrans1.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl -n
+
+BEGIN {binmode(STDOUT, ":utf8");}
+
+print "#- $_";
+@_=split /;/;
+printf qq(<MM> \{%s\} :  "%s"   U%s\t# %s\n), lc($_[1]),chr(hex($_[0])), $_[0], $_[1];
+
+