Select Code to Download

#!/usr/bin/perl
use strict;
...
my $string2 = " World";
$string1 .= $string2;
print "$string1\n";

#!/usr/bin/perl
use strict;
...
my $string2 = " World";
substr($string1,-1,0,"$string2");
print "$string1\n";