Бэн! Это Данила! I need help! (Perl & MIME

Ну очень сильно нужна помощь!

Задача: Выдрать аттачмент из письма Perl скриптом.

Там аттач в виде здорового такого столбца из символов. И судя по документации эта чтука зашифроффана при помощи

use MIME::Base64;

$text=encode_base64($text);
.....

Предположим, что в аттачменте doc файл и я копирую эту белиберду (Зашифрованный столбец) в файл enc.f
И провожу что то вроде:

$t='';
open(F,"enc.f");
@file=<F>;
open(f2,">dec.doc");
foreach $s (@file) {
chomp($s);
$t.=$s
}
$t=decode_base64($t);
print f2 $t;
close F;
close f2;

Вроде все путем? Да, если открыть исходный док файл и полученный каким-нибудь блокнотом, то они выглядят одинаково, но вот полученный файл чуть-чуть длинее, и вордом не открывается...(17036 байт против 16947 например)

Прошу вашей помощи... Вот. С надеждой...