RosettaCodeData/Task/Copy-a-string/Perl/copy-a-string-1.pl

my $original = 'Hello.';
my $new = $original;
$new = 'Goodbye.';
print "$original\n";   # prints "Hello."