$ perl -wle '%h = map { print unless defined($h{$_}); $_ => $h{$_}++ } split(//,q{abcdabcdabcd}); '
a
b
c
d