Select Code to Download

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

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