Select Code to Download

sub encode {
    state $lookup = {
...
    $text =~ s/$re/$lookup->{$1}/g;
    return $text;
}

{
    my $lookup = {
...
        return $text;
    }
}

{
    my ($lookup, $re);
...
        return $text;
    }
}