for my $crummy_good_ar (@corrections_to_make) {
  my ($crummy, $good) = @$crummy_good_ar;
  $file_in_string_form =~ s/$crummy/$good/ig;
}