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) foreach @subs;
print $string;