Скриптик в целом готов, часов в 19 я его откомпилирую его в ActivePerl и выложу сюда.
А можно пример данных для тестового прогона?