while($buf=~/Content-Disposition:\sattachment;\sfilename="(.*)"/g){ # filename, baby
            my $filename=$1;
            open S, ">$filename";
            if($buf=~/X-Attachment-Id:\s\w+[\r\n]{4}([\w\r\n\=\+\/]+)/sg){
                my $file=$1;
                #print $file;
                $file=decode_base64($file);
                print S $file;
                close S;
            }
        }

собственно, вот так принимаю файл. но, вместо картинки с милой птичкой получил что-то вроде зелёной блювотной массы, а вместо eml файла

бЮЬ ОНВРНБШИ

а txt файл принялся нормально.
в чём проблема?