#!/usr/bin/perl

use warnings;
use strict;

my $str;
my $str2;

$str = "Hello World I'm Matt";

$str2 = $str =~ s/Matt/Matthew/r;

print " str = $str\n";
print "str2 = $str2\n";