Select Code to Download

$ perl -le'print grep { $seen{$_} == 1 } map { $seen{$_}++; $_ } qw( a
+ b a c );'
bc

grep { ++$seen{$_} == 1 }

grep { !$seen{$_}++ }