Regular Expression Perl

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