#!/usr/bin/perl -w -i.orig
use strict;

while (<>) {
	# change <tmpl_XXX name="XX">
	s/<(?: *)tmpl_(\w+)\s\w+=(?:"*)(\w+)(?:"*)(?: *)>/'<!-- tmpl_'.lc($1).' name="'.lc($2).'" -->'/egi;

	# change <tmpl_XX>
	s/<(?: *)(\/|)tmpl_(\w+)(?: *)>/"<!-- $1tmpl_".lc($2).' -->'/egi;		
	print;
}