use strict;
use warnings;

my $valueToKeep = 'wibble';

(my $editedValue = $valueToKeep) =~ s/w/W/g;

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