$x = 'Just another COBOL hacker,'; substr($x,13,5) = 'Perl';