You could use Abiword to do your word document parsing, and use your Perl script as a wrapper.