wrapper for unicode(1) to examine each character in a word

diff --git a/unicode-word b/unicode-word
new file mode 100755 (executable)
index 0000000..b31107e
--- /dev/null
+++ b/unicode-word
@@ -0,0 +1,9 @@
+#! /bin/sh
+
+# Perl doesn't seem to like -CA in the #! line.
+perl -w -CA -e '
+    use strict;
+    for my $char (split //, join " ", @ARGV) {
+       system("unicode", $char);
+    }
+' "$@"