#! /usr/bin/env perl
# "uniqnord" - remove dups from a list of identifiers.
use strict; use warnings;

$, = ! -t STDOUT ? "\n" : " " ;
my %seen = (); $\ = "\n";
print STDOUT  join($, =>
    grep {!$seen{$_}++} map {
      if (/ +/) { $/=" " ; @_=split }
        else    { chomp ; $_ }} <>)
__END__