$doc->SaveAs(
    {
        Filename   => $filename_out,
        FileFormat => wdFormatText,
        Encoding => '1200',
    }
);