foreach my $thing (keys(%translate))
  {
   s/${thing}/${translate}{${thing}}/g;
  }