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