sub stringExpressionReplace {
  my $mod_string  = $_[0];
  my $find        = $_[1];
  my $replace     = $_[2];

  my $orig_string  = $mod_string;
  my $mod_replace  = sprintf("\"%s\"",$replace);
  $mod_replace   =~ s/\$(\d)/\${$1}/g;
  $mod_string =~ s/$find/$mod_replace/ee;
  print "                 stringExpressionReplace String: $orig_string --> $mod_string\n" if($orig_string ne $mod_string);
  return $mod_string;
}