sub foo {
  $_[0] =~ y/x/y/;
}

foo("xyzzy");