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

# versus

$bBlkTx =~ s{ <BlockAmendment\ [^>]+ ><P2>   (.*?)   </P2></Block\ Amendment> }
            { \n<lq><P2>   $1   <\/P2>\n<\/lq> }xgi;

##</code><code>##

$P2=qr'\s*<P2>\s*'xgi;
$AmendmentPrefix= qr'BlockAmendment\ [^>]+ >'xgi;
$AmendmentSuffix= qr'</P2></Block\ Amendment>'xgi;

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