つうかそれこそ Perl で書けよ。
数十秒でかけるでしょ。