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