Select Code to Download

#!/usr/local/bin/perl
use strict;
...
    }
}
print Z $xmlBody;

<BlockAmendment Context="unknown" TargetClass="unknown" TargetSubClass
+="unknown" Format="double">
<P2>
...
</P2para>
</P2>
</BlockAmendment>

<lq>
<s1><no>&ldquo;(3)</no>
...
<pt>where the order made is an occupation order and the court so direc
+ts, issue a copy of the order, indorsed with or incorporating a notic
+e as to the consequences of disobedience, for service in accordance w
+ith <cit><loc>paragraph (2)</loc></cit>.&rdquo;.</pt>
</s2></s1>
</lq>