$encode = 'u'; # example, could be 'p', 'b', or 'u'
$sub_ref = template($encode);

sub template {
    my $e = shift;
    if ($e eq 'b') { return sub {...stuff...} }
    elsif ($e eq 'u') { return sub {...other stuff...} }
    else { return sub {...yet more...} }
}

...time passes...

$encoded_output = &$sub_ref;


##</code><code>##

sub template {
    my $e = shift;
    my $common = sub {...shared stuff...}
    if ($e eq 'b') { return sub {&$common; ...stuff...} }
    if ($e eq 'u') { return sub {&$common: ...other stuff...} }
etc.