#!/usr/bin/perl
use strict;
use warnings;

my $string = "This is string";
print "$string\n";

$string =~ s/string/stretched string/;
$string =~ s/string/STRING/;

print "$string\n"; 

__END__
This is string
This is stretched STRING