This probably won't help, but on the off chance that it gives you an idea what to search for or where to look...

The script to which each character belongs has been tabulated as evidenced by the ability to do \p{Greek} in regexp matches. I just don't know if Perl exposes the reverse operation. The list of recognized scripts is in perlunicode and originates from "the Unicode database", files distributed by the Unicode Consortium.