#!/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+/;
	}
}

##</code><code>##

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

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

__DATA__
d_145_1_2- + c_3_1_8-e_74_1_1-
a_100_1_6-c_2_1_6- + b_50_1_2-
c_69_1_17- + b_61_6_1-
c_2_1_2- + a_123_1_1-
d_83_1_1- + c_2_1_5-d_162_1_1-
c_2_1_2- + a_123_1_1-
a_123_1_1- + c_2_1_2-