perl -ne 'print if !$saw{$_}++'
perl -pe'$s{$_}++and$_=$,'