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

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