RosettaCodeData/Task/Copy-a-string/Perl/copy-a-string-1.pl
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

4 lines
106 B
Perl

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