Как удалить повторяющиеся символы и сохранить уникальный только в Perl?

Question

Как удалить повторяющиеся символы и сохранить только один уникальный. Например, мой ввод:

EFUAHUU
UUUEUUUUH
UJUJHHACDEFUCU

Ожидаемый результат:

EFUAH
UEH
UJHACDEF

Я сталкивался с perl -pe's/$1//g while/(.).*\/', что замечательно, но он удаляет даже единственное вхождение символа в вывод.

Answer 1

для файла, содержащего перечисленные вами данные, с именем foo.txt

python -c "print set(open('foo.txt').read())"