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";