Regular Expression Perl

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