$ perl -E 'say 2040816.33/840336.13'
2.42857144557143

##</code><code>##

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

##</code><code>##

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