Select Code to Download

use strict;
use warnings;
...
(my $editedValue = $valueToKeep) =~ s/w/W/g;

print "Edited: $editedValue Original: $valueToKeep\n";

Edited: Wibble Original: wibble