sub search_and_replace {
      open my $target_file, "<", $_;
      $| = 1;
      my $filename = $_;
      while (my $target_string = <$target_file>) {
        for my $row (@table) {
          my $search = $row->[0];
          my $replacement = $row->[1];
               
          if ((lc $target_string) =~ (lc $search)) {
            print "Found $search in $filename in the following context:\n";
            print "$target_string\n";
            if (ref($replacement) eq 'ARRAY' && length $replacement > 1) {
              print "Choose a replacement candidate by typing the appropriate number, or else type '0' to skip.\n";
              my $count = 1;
              for my $value (@$replacement) {
                print "$count\) $value\n";
                  $count++;
              }
              my $choice = <STDIN>;
              if ($choice >= 1 && $choice <= (length $replacement)) {
                my $replace_choice = $replacement->[$choice];
                edit_file { s/$search/$replace_choice/gi} $filename;
              }
              else {
                print "Skipping this occurrence without replacing.\n";
              }
            }
            else {
              print "Confirm replacement with $replacement by typing y, or skip by typing any other key.\n";
              my $choice = <STDIN>;
              if ($choice eq 'y' || 'Y') {
                edit_file { s/$search/$replacement/gi } $filename;
              }
              else {
                print "Skipping this occurrence without replacing.\n";
              }
            }
          }
        }
      }
      close $target_file;
}