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

##</code><code>##

my $s3 = "${s1}${s2}";

##</code><code>##

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