use warnings;
use strict;

my $string1 = "Hello";
my $string2 = " World";
substr $string1, (length $string1), 0, $string2;
print "$string1\n";

__END__

Hello World