use strict;
use warnings;

local $/ = '';
my ( %products, %records );

while (<>) {
	if (/(Product.+)/) {
		$products{$1}++;
		$records{$1} = $_;
	}
}

print $records{$_} for grep $products{$_} == 1, keys %records;