$string="chocolate/cake/milk/ice cream.";$string =~ s/(?<= chocolate) milk/ candy/;print "$string\n";$string="this is a test.";$string =~ s/(?<=a test) is/ is not/;print "$string\n";