Select Code to Download

$str = '<businesses>
    <entity name="Retail">
...
$str=~ s/<\/product>\s*<\/entity>/<\/block>/gsi;
print "$str";

<businesses>
    <block name="Retail" min="0" max="3">
...
        </item>
      </block>
</businesses>