my $tmplBegin = "<!-- TMPL_VAR NAME";
my $tmplEnd   = "-->";
$template =~ s~\[(\w+)\](.+?)\[/\1\]~$tmplBegin=$1 $tmplEnd~g