Help for this page

Select Code to Download

Select or download this

    #Processing BlockAmendments
    while ($xmlBody =~ m/(<BlockAmendment [^>]*>(.+?)<\/BlockAmendment
+>)/gi){
...
        print "$CbBlkTx\n\n=====>\n$bBlkTx\n\n";
        $xmlBody =~ s/$CbBlkTx/$bBlkTx/gi;
    }