#! /usr/bin/perl
use strict;
use warnings;
use Template;

my $template = Template->new({});

my $text = "[% SET content='" . ("stuff "x20_000) . "' %]";

$template->process(\$text, {});

print "Processed\n";