use strict; use warnings; my $string = "This planet is our planet."; print "$string\n"; my $matches = $string =~ s/planet/world/g; print "$matches occurences of planet were changed to world.\n"; print "The new string is: $string\n";