my $data = serialize $tree, sub {
    my $obj = shift;
    if (check_some_condition($obj)) {
        return replace($obj)
    }
    return (); # serialize $obj as is
};