my $foo = "Hello, World!";
substr($foo,7,5) = "PerlMonks";
print "$foo\n"; 
__END__
Hello, PerlMonks!