Select Code to Download

$ perl -E 'say 2040816.33/840336.13'
2.42857144557143

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

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