[Moscow.pm] Нужна ваша помощь (PHP -> Perl)

[dvhillard на gmail.com]

Здравствуйте, Moscow.pm.

Есть PHP файл, там несколько функций для работы .SWF
Попробывал сам переписать на Perl, но не осилил даже строчку
           $result = $result + ((((ord($buffer[(int)($loop / 8)])) >> (7 - ($loop % 8))) & 0x01) << ($count - ($loop - $pos) - 1));

И ещё там есть пару сложных моментов, с большим регекспом.

Немогли бы вы мне помочь с этой задачей? Естественно не бесплатно, WMZ
плачу.

Вот этот PHP файл
http://www.8fn.net/875489


Спасибо!

-- 
С уважением,
Dvhillard                          mailto:dvhillard на gmail.com