$ perl -E'say grep !$seen{$_}++, split //, "abracadabra";'
abrcd