in reply to perl one liner with -F special char

Seems shell doing *its work*.
This works for me:

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

[download]

In Section Seekers of Perl Wisdom