How to extract the data from a word doc using Perl?
You could use Win32::OLE if the script is to run on a Windows box with Word installed.
What platform are you using? Perhaps antiword could be invoked?