gistfile1.txt

#!/usr/bin/perl

binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";
eval { binmode STD, ":utf8" };
use Encode;
for (@ARGV) { Encode::_utf8_on($_) }

$pat = "@ARGV";
if (ord $pat > 256) {
    $pat = sprintf("%04x", ord $pat);
    $pat = '\b' . $pat . '\b';
}
elsif (ord $pat > 128) {        # arg in sneaky UTF-8
    $pat = sprintf("%04x", unpack("U0U",$pat));
    $pat = '\b' . $pat . '\b';
}

@names = split /^/, do 'unicore/Name.pl';
for my $line (@names) {
    $hex = hex($line);
    $_ = chr($hex)."\t".$line;
    if (/$pat/io) {
        print 'o' if /COMBINING/;
        print;
    }
}