my $word = Win32::OLE->new('Word.Application', 'Quit');
$word->Documents->Open("S:/Documents/CENTRAL NJ.doc") || die("Unable to open document ", Win32::OLE->LastError());
my $searchword = 'CENTRAL NJ';

foreach $file (@rename_file)
{
    $word->Selection->Find->{'Text'} = $searchword;
    $word->Selection->Find->Replacement->{'Text'} = "$file";
    $word->Selection->Find->Execute({Replace=>wdReplaceAll});
    $word->ActiveDocument->SaveAs({FileName=>"S:/Documents/$file.doc"});
    $searchword = $file; # next pass, search this text.
}

$word->ActiveDocument->Close;
$word->Quit;