Select Code to Download

C:\> perl -E "my $var = 'rstuv';  $var =~ s/r/FOO/; say $var;"
FOOstuv  
    # replaced the "r" with "FOO"... and would have done the same if $
+var were a filename;
...
C:\> perl -E "my $var = 'rstuv';  my $newvar = $var =~ tr/r/FOO/; say 
+$newvar;"
1   
    # count of the replacement actions