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