RosettaCodeData/Task/String-concatenation/Perl/string-concatenation-1.pl

my $s = 'hello';
print $s . ' literal', "\n";
my $s1 = $s . ' literal';
print $s1, "\n";