Perl парсинг

Нужно написать скрипт который будет обрабатывать всю почту на сервере а именно вытаскивать из всего письма только поле To: и сам текст письма + перекодировать его в base64 utf8. И ложить в указную папку. mail server exim