my @subs;
push @subs,sub{local $_=shift; s/foo/bar/g; $_};
push @subs,sub{local $_=shift; s/baz/zaz/g; $_};
my $string="foo baz";
$string = $_->($string) foreach @subs; # *** CHANGED *** #
print $string;