(sub { $_[0] =~ s/foo/bar/ })->(my $d = 'Shakespear is the food');