#!perl
use strict;
use warnings;

use Data::Dumper;

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

print "$d\n";