4363^7619082^309839685^309841122^14^18 4363^7619082^309839685^309841122^14^19 4363^7619082^309839685^309841122^14^20 4363^7619082^309839685^309841122^26^25 4363^7619082^309839685^309841122^26^26 4363^7619082^309839685^309841122^14^52 4363^7619082^309839685^309841122^14^51 4363^7619082^309839685^309841122^23^21 #### perl -ne '@ar = split /\^/; $key="$ar[0],$ar[1],$ar[2],$ar[3]\n"; print $key if ( ! $seen{$key} ++ );' datafile #### perl -naF^ -e '$key="$F[0],$F[1],$F[2],$F[3]\n"; print $key if ( ! $seen{$key} ++ );' datafile or -F/^/ -F/\^/ -F"^" -F'^'