perl -e' while(<>) {print unless $s{(split /\|/)[0]}++;}' < infile > outfile