sub foo {
  local $_=shift;
  s/.../.../g;
}