unicode-word

   1 #! /bin/sh
   2
   3 # Perl doesn't seem to like -CA in the #! line.
   4 perl -w -CA -e '
   5     use strict;
   6     for my $char (split //, join " ", @ARGV) {
   7         system("unicode", $char);
   8     }
   9 ' "$@"