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