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