$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;