for ($leetString) { # "loops" only once
  s/very/uber/g;
  tr/astloe/457103/;
  s!w!\\/\\/!g;
}