Select Code to Download

        while($file=~m/<\?CLG\.MDFO[^>]+?ID="O(.+?)"[^>]+?IDREF="C(.+?
+)"[^>]+?>(.+?)<\?CLG\.MDFC[^>]+?ID="C\1"[^>]+?IDREF="O\2"[^>]+?>/msgi
+)
        {
...
                {print FOUT "<p><font color=\"red\">$path:</font> <fon
+t color=\"green\">Warning: ".$warn++."</font><font color=\"darkteal\"
+>: Line: $ln </font>\&#160;<font color=\"blue\">Check: MDFO tag is pl
+aced before &lt;$stag tag, the MDFC tag should close after the same &
+lt;$stag tag.</font></p>";}
            }
        }

<?CLG.MDFO ID="O001001M004000" IDREF="C001001M004000" ACTION="REPLACED
+" LEVEL="STRUCTURE" COMMAND="EXPLICIT" ACTIVE.DOC="306D0754" ACTIVE.L
+OC="AR:1;PT:4" MOD.LEVEL="1" PASSIVE.LOC="AR:5"?>
<ARTICLE IDENTIFIER="005">
...
</ARTICLE>
<?no_smark?>
<?CLG.MDFC ID="C001001M004000" IDREF="O001001M004000"?>