RosettaCodeData/Task/String-append/Perl/string-append.pl

my $str = 'Foo';
$str .= 'bar';
print $str;