$row =~ s/^<%\s*(\w+)\s*%>$/$vars{$1}/eg;