c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'abcdefg';
 print qq{'$s'};
 ;;
 my $char = 'X';
 my $n = 3;
 substr $s, $n, 0, $char;
 print qq{'$s'};
"
'abcdefg'
'abcXdefg'