c:\@Work\Perl>perl -wMstrict -le
"my $string1 = 'Hello';
 my $string2 = ' World';
 ;;
 $string1 = substr($string1, 0) . $string2;
 print qq{'$string1'};
"
'Hello World'