You'll probably find it helpful to use the following lines at the top of your code:
use warnings;
use strict;
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.
So it looks like you haven't posted the exact code you're trying to run.