Regular Expression Perl

use strict;
use warnings;
my $string = "Hello to the world";
print "The original string is: \"$string\"\n";
$string =~ s/world/planet/;
print "s/world/planet/ changes string: $string \n\n";