Переведите с Perl'а

Всем доброе время суток!

Понадобился алгоритм подсчета контрольной цифры для Taiwan ID Number. Вот тут нашел его на Perl.
Буду благодарен за описание алгоритма на русском, псевдокоде или чем-нибудь си-подобном.

ЗЫ. Зашел на форум после долгого перерыва. Фига тут перемены!