while($file=~m/<\?CLG\.MDFO[^>]+?ID="O(.+?)"[^>]+?IDREF="C(.+?)"[^>]+?>(.+?)<\?CLG\.MDFC[^>]+?ID="C\1"[^>]+?IDREF="O\2"[^>]+?>/msgi)
		{
			my $mdfomdfc=$&;
			my $ln = line($`);
			if($mdfomdfc=~m/<\?CLG\.MDFO[^>]+>\n?<([A-Z.]+)[ ]?.+?>\n?(.+?)\n?<\/(\1)>\n?(<\?.+?\?>)?\n?<\?CLG\.MDFC[^>]+>/msgi)
			{
				my $stag = $1;
				my $etag = $3;
				if($stag ne $etag)
				{print FOUT "<p><font color=\"red\">$path:</font> <font color=\"green\">Warning: ".$warn++."</font><font color=\"darkteal\">: Line: $ln </font>\&#160;<font color=\"blue\">Check: MDFO tag is placed before &lt;$stag tag, the MDFC tag should close after the same &lt;$stag tag.</font></p>";}
			}
		}