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