gistfile1.pl

use strict;
use warnings;
use v5.10;

use Text::Caml;
use URI::Escape;

my $renderer = Text::Caml->new;
my $output;

$output = $renderer->render( 
    <<'EOF', {uri_escape => sub { uri_escape $_[1] }, uris => ['test']});
{{#uris}}{{#uri_escape}}{{.}}{{/uri_escape}}{{/uris}}
EOF
say uri_unescape($output);