sub applyRegexToColumn{
 my $tbl = shift;
 my $Column = shift;
 my $pattern = shift;
 my $newtext = shift;
 my $modifier = shift;

 for(my $iR = 0; defined $tbl && $iR < @$tbl ; $iR++) {
  if( defined($tbl->[$iR]->[$Column]) &&  $tbl->[$iR]->[$Column] =~ /$pattern/ ){
      $tbl->[$iR]->[$Column] =~ s/($pattern)/$newtext/;
  }
 }
}