my $config = {INTERPOLATE=>0, EVAL_PERL=>0};
my $template = Template->new($config);
my $text = "[% var1 %] [% var2 %] [% var3 %]";

my $vars = $template->get_vars(\$text);
 # vars will contain ['var1', 'var2', 'var3']