$DataToParse =~ s/(.+)\sELEMENT\s(.+?)\s\(Item := \"$item\".+?CatalogNumber := \"$catNum.+?END_ELEMENT/$1 ***** Found $2\'s $catNum $item. (counter: $counter) *****$3/s;

##</code><code>##

        $DataToParse =~ s/\sELEMENT\s(.+?)\s\(Item := \"$item\".+?CatalogNumber := \"$catNum.+?END_ELEMENT/ ***** Found $1\'s $catNum $item. (counter: $counter) *****/s;