my $foo = "Foo";
my $bar = "Bar";
my $string = $foo . $bar;
# $string contains "FooBar".
[download]

For concatenating the new string to the end of the existing string (appending):

my $foo = "Foo";
my $bar = "Bar";
 $foo .= $bar;
# $foo now contains "FooBar"
[download]

For concatenating multiple strings all at once, use join. Join is (according to the Camel book) the most efficient way to concatenate many strings together. Join can be used with a delimiter, or with a null string as the delimiter, so that nothing is inserted between the strings that are joined (concatenated) together.

my $this = "This";
my $that = "That";
my $the  = "The";
my $other = "Other";
my $string = join "", $this, $that, $the, $other;
# $string now contains "ThisThatTheOther".
[download]

Join can do a lot more than just simple concatenation. Whatever you put between the quotes will be inserted between the strings that are being joined together. Also, join can accept not just a list of scalar variables, but also an array, or a list of literal strings.

my $foo = "Foo";
my $bar = "Bar";
my $str = $foo . $bar;

print $str;
[download]

Originally posted as a Categorized Answer.

my $foo = "Foo";
my $bar = "Bar";
my $foo .= $bar;
[download]

$foo .= $bar;
[download]

Originally posted as a Categorized Answer.

my $s1 = 'Perl';
my $s2 = 'Monks';
my $s3 = "$s1$s2";
print "$s3\n";
# $s3 contains 'PerlMonks'
[download]

or using this syntax:

my $s3 = "${s1}${s2}";
[download]

Interpolation of array variables can also be performed to concatenate all element of the array into a string. It is necessary to unset the LIST_SEPARATOR ($") special variable, and it is good practice to localize this change to its own block:

{
   undef $";
   my @strs = 'a' .. 'e';
   my $s4 = "@strs";
   print "$s4\n";
   # $s4 contains 'abcde'
}
[download]

Originally posted as a Categorized Answer.