Select Code to Download

sub save_doc_as_text {
    my ( $infile, $outfile ) = @_;
...
    undef $doc;
    undef $word;
}

sub word_find_and_replace {
    my ( $word, $rel_file_path, $tokens_ref ) = @_;
...
    undef $doc;
  return $content_ref;
}