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