my $doc = $word->Documents->Open("$oldfile");

my $search =  $doc->Content->Find;