for (k in $*) {
  $[k] = gsub($[k], "e", "X");
}