$ perl -COE -wE'use charnames (); use unicore::Name; my $script = shift; open my $fh, "<", $INC{"unicore/Name.pm"} =~ s/Name\.pm$/Blocks.txt/r; for (grep m/\b$script\b/ => <$fh>) { m/\b([0-9A-Z]+)\b\s*\.\.\s*([0-9A-Z]+)/ or next; foreach my $c (hex ($1) .. hex ($2)) { my $nm = charnames::viacode ($c) or next;printf "U+%05x %-5s %s\n", $c, chr ($c), $nm}}' Thai