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