Allow me to convince you otherwise:

use strict;
use warnings;

my $valueToKeep = 'wibble';

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

print "Edited: $editedValue Original: $valueToKeep\n";
[download]

Prints:

Edited: Wibble Original: wibble
[download]