as you appear to be using a number of undeclared functions and your definition of $file1 is definitely incorrect - backslashes and double quotes don't do what you obviously expect.
A good thing for you to do right now would probably have a read of perlman:perldebug have a look at the values in your variables. Another tip would be to check the return values of your external calls - are you sure that $Word is defined before you call methods on it?