perl -naF^ -e '$key="$F[0],$F[1],$F[2],$F[3]\n"; print $key if ( ! $seen{$key} ++ );' datafile

or

-F/^/
-F/\^/
-F"^"
-F'^'