Shell Programming and Scripting

cat abc.txt |  perl -e '
while(<>){ 
         chomp;
         my %hash;
         map { print "$_/" } grep(!$hash{$_}++, split(//));
         print "\n";
}'

def u(list):
    set = {}
    return [set.setdefault(a,a) for a in list if a not in set]

for line in open("input.txt"):
        t = tuple(line)
        p = u(t)
        print "/".join(p),

$ python mt.py
G/T/
C/T/
C/T/
C/T/
G/C/A/
G/C/A/
G/C/A/
G/C/A/
G/A/T/
G/A/T/
G/A/T/
G/A/T/
A/
A/
C/

awk -F "" '{for (i=1;i<=NF;i++) { a[$i]++ ; if (a[$i]==1) printf $i"/" }} {printf "\n"} {for (i in a) a[i]=0} ' urfile

perl -nle'
  %_=()or print join("/",grep!$_{$_}++,split//),"/";
  ' infile