RosettaCodeData/Task/Copy-a-string/Perl/copy-a-string-1.pl
2023-07-01 13:44:08 -04:00

4 lines
106 B
Perl

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