sub validate_tag
{
	my $arr1=$ARGV[1];
	while($_ =~ /<(.+?)>/g)
	{
		$found=0;
		for my $x (0..$#arr1)
		{
			if($arr1[$x] eq $1){$found++}
		}
		if($found < 1){print "Invalid tag $1 found"}
	}
}