[perl]Чем парсить multipart/form-data ?

Есть портянка примерно такого вида ( ее передает один nginx модуль ) нужно ее парсить в perl модуле (под nginx ):

Content-Type: multipart/form-data; boundary=----------EKIlj3OGqfTEBTCCIcrItH

------------EKIlj3OGqfTEBTCCIcrItH
Content-Type: multipart/mixed; charset=utf-8;
boundary=----------EKIlj3OGqfTEBTFVI9xj8n
Content-Disposition: form-data; name=«upload»

------------EKIlj3OGqfTEBTFVI9xj8n
Content-Disposition: form-data; name=«upload»; filename=«test1»
Content-Type: application/octet-stream

11111

------------EKIlj3OGqfTEBTFVI9xj8n
Content-Disposition: form-data; name=«upload»; filename=«test2»
Content-Type: application/octet-stream

22222

------------EKIlj3OGqfTEBTFVI9xj8n--

------------EKIlj3OGqfTEBTCCIcrItH
Content-Disposition: form-data; name=«async»

1
------------EKIlj3OGqfTEBTCCIcrItH--


Соотв только нужны имена name и содержимое (только для полей типа текст ). Попробывал использовать MIME::Parser но его синтаксис убил ( чтобы пропарсить простой текст нужно написать 20-30 строчек ). Ну не писать же в данном случае простой регэксп ... Есть более простые парсеры ?