Help for this page

Select Code to Download


  1. or download this
    $bBlkTx =~ s/<BlockAmendment [^>]+><P2>(.*?)<\/P2><\/Block Amendment>/
+\n<lq><P2>$1<\/P2>\n<\/lq>/gi;

...

$bBlkTx =~ s{ <BlockAmendment\ [^>]+ ><P2>   (.*?)   </P2></Block\ Ame
+ndment> }
            { \n<lq><P2>   $1   <\/P2>\n<\/lq> }xgi;
  2. or download this
    $P2=qr'\s*<P2>\s*'xgi;
$AmendmentPrefix= qr'BlockAmendment\ [^>]+ >'xgi;
...

$bBlkTx =~ s{ $AmendmentPrefix $P2  (.*?)  $AmendmentSuffix }
            { \n<lq><P2>   $1   <\/P2>\n<\/lq> }xgi;