sub encode($$;$)
{
    my ($name, $string, $check) = @_;
# ...
    my $octets = $enc->encode($string,$check);
    $_[1] = $string if $check and !($check & LEAVE_SRC());
    return $octets;
}