#!/usr/bin/perl
use strict;
use warnings;

my %seen;
{
	local $\ = "\n"; # call to print() ends in newline
	while (<DATA>) {
		chomp;
		print unless grep $seen{$_}++, split /\s+\+\s+/;
	}
}