use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';

$file = "c:\\C-212\\200539061_D.doc";
$new_file = "c:\\C-212\\200539061_D.txt";
$WordObj = Win32::OLE->new('Word.Application', 'Quit') or die "Couldn't
run Word";
$wd = $WordObj->Documents->Open($file);

$WordObj->ActiveDocument->SaveAs({
		FileName => $new_file,
		FileFormat =>wdFormatText,
	});
$wd->Close();
$WordObj->exit;