(my $d = 'Shakespear is the food') =~ s/foo/bar/;