sub removetag {
	my $_n = shift;
	my $_v = shift;
	$xml =~ s/(<$_n>).*(<\/$_n>)//g;
}