Help for this page
my $filter = sub { my $text_ref = shift; ... my $template = HTML::Template->new( filename => 'zap.tmpl', filter => $filter);
sub convert { my $text_ref = shift; ... $$text_ref =~ s/\[\%\/(.*?)\%\]/<\/TMPL_$1>/g; $$text_ref =~ s/\[\%(.*?)\%\]/<TMPL_$1>/g; }