johngg@aleatico:~$ perl -Mstrict -Mwarnings -E 'say q{};
my $str = q{abcdefg};
say $str;
substr( $str, 3, 0 ) = q{xxxxx};
say $str;'

abcdefg
abcxxxxxdefg