You'll probably find it helpful to use the following lines at the top of your code:

use warnings;
use strict;
[download]

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?

Update:I ran the code you supplied and it returns:

Undefined subroutine &main::b called at 422677.pl line 14.
[download]

So it looks like you haven't posted the exact code you're trying to run.