$ perl -E 'say "xwz" =~ y/w/y/r'
xyz