#Processing BlockAmendments
	while ($xmlBody =~ m/(<BlockAmendment [^>]*>(.+?)<\/BlockAmendment>)/gi){
		$CbBlkTx = $1;
		$bBlkTx = $CbBlkTx;
		if ($bBlkTx =~ m/(<BlockAmendment [^>]+><P2>(.*?)<\/P2><\/BlockAmendment>)/){
			$bBlkTx =~ s/<BlockAmendment [^>]+><P2>(.*?)<\/P2><\/BlockAmendment>/\n<lq><P2>$1<\/P2>\n<\/lq>/xgi;
			$bBlkTx =~ s/<P2><Pnumber>([^<]+)<\/Pnumber><P2para><Text>(.+?)<\/Text>(.*?)<\/P2para><\/P2>/\n<s1><no>($1)<\/no>\n<pt>$2<\/pt>$3\n<\/s1>/xgi;
			$bBlkTx =~ s/<P3><Pnumber>([^<]+)<\/Pnumber><P3para><Text>(.+?)<\/Text>(.*?)<\/P3para><\/P3>/\n<s2><no>($1)<\/no>\n<pt>$2<\/pt>$3\n<\/s2>/xgi;
			$bBlkTx =~ s/<P4><Pnumber>([^<]+)<\/Pnumber><P4para><Text>(.+?)<\/Text>(.*?)<\/P4para><\/P4>/\n<s3><no>($1)<\/no>\n<pt>$2<\/pt>$3\n<\/s3>/xgi;
			$bBlkTx =~ s/<P5><Pnumber>([^<]+)<\/Pnumber><P5para><Text>(.+?)<\/Text>(.*?)<\/P5para><\/P5>/\n<s4><no>($1)<\/no>\n<pt>$2<\/pt>$3\n<\/s4>/xgi;
		}
		$bBlkTx =~ s/<\/pt>\n<\/s([0-9])><Text>(.+?)<\/Text>/ $2<\/pt><\/s$1>/xgi;
		print "$CbBlkTx\n\n=====>\n$bBlkTx\n\n";
		$xmlBody =~ s/$CbBlkTx/$bBlkTx/gi;
	}