Yes, this looks like what I'm looking for as far as the results are concerned, though there is a lot here that I will need time to read and really understand. I've tried dropping this code in with some minor modifications like so, such that it can be applied to the recursive traversal of directories. I've also adopted some things from other posts: 
use strict;
use warnings;
use diagnostics;
use autodie;
use feature qw/fc/;

use Text::CSV_XS;
use File::Find;
use File::Replace 'replace3';
use List::AllUtils qw( nsort_by uniq );
use Path::Tiny;

my ($old, $new, $reset) = map "\e[${_}m", 91, 92, 0;
my $csvfile = $ARGV[0];
my %table;
open my $fh, '<', $csvfile;
my $csv = Text::CSV_XS->new({binary=>1, auto_diag=>2});
while ( my $row = $csv->getline($fh) ) {
    push @{$table{ fc($row->[0]) }}, $row->[2];
}
$csv->eof or $csv->error_diag;
close $fh;

my $match = qr/(@{[ join '|', nsort_by { -length } keys %table ]})/i;

find({ 
  preprocess => \&filter, 
  wanted => \&search_and_replace 
  }, 
  $ARGV[1]
);

sub filter {
  return grep { -d or (-f and ( /\.txt$/ or /\.rst$/ or /\.yaml$/))} @
+_;
}

sub search_and_replace {
  open my $target_file, "<", $_;
  my $pos = 0;         # NOTE replaces whole file for each change
  my $more = 1;
  while( $more )
  {
    $target_file->edit( sub
    {
      pos($_) = $pos;
      if( /$match/g )
      {
        my ( $was, $where, $pre, $post ) = ( $1, $-[1], $`, $');
        print "\n", $pre =~ s/^.*\n(?=.*\n)//sr, "$old$was$reset",
        $post =~ s/\n.*?\n\K.*//sr, "\n";
        my $replace = ask( $was );
        $was eq $replace or substr $_, $where, length $was, $replace;
        $pos = $where + length $replace;
      }
        else { $more = 0 }
    } );
        # print "\e[33m", $target_file->slurp, "\e[0m"; # FIXME here f
+or testing
    }
    close $target_file;
}

sub ask
  {
  my ($was) = @_;
  my @choices = uniq @{ $table{ lc $was } };
  local $| = 1;
  if( @choices > 1 )
    {
    my $n = 1;
    printf "%8d. $new%s$reset\n", $n++, $_ for @choices;
    print "     replace '$old$was$reset' with ${new}above pick$reset (
+ or 0 to not change) : ";
    my $pick = <STDIN> =~ tr/0-9//cdr || 0;
    0 <= $pick <= @choices or $pick = 0;
    return ($was, @choices)[$pick];
    }
  else
    {
    print "     replace '$old$was$reset' with '$new@choices$reset' ? y
+es/no : ";
    return <STDIN> =~ /y/i ? $choices[0] : $was;
    }
  }

[download]
In this form, I try running it and get an error: 
perl searchandreplace.pl ~/spreadsheet.csv ~/targetRepo
syntax error at deprecatus3.pl line 81, near "$pick <="

[download]

In reply to Re^6: Immediately writing the results of search-and-replace by elemkeh
in thread Immediately writing the results of search-and-replace by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.