Thanks, this helped! The Arabic text gets printed fine, but the English language symbols such as (), [], ..., etc. show up in the inappropriate places. That is, these symbols show up in the left to right format (as in English) rather than right to left (as in Arabic). Following is my code:

use Win32::OLE qw(CP_UTF8);
Win32::OLE->Option(CP=>CP_UTF8);
use Win32::OLE::Const 'Microsoft Word';
use Spreadsheet::WriteExcel;

my $workbook = Spreadsheet::WriteExcel->new("word.xls");
my $worksheet = $workbook->addworksheet();
my $word = Win32::OLE->new('Word.Application', 'Quit');
my $doc = $word->Documents->Open("C:\\file.doc");

my $string = $doc->Words->Item(1)->Text;
$worksheet->write(0, 0, $string);
[download]