$ perl -E'say for grep 0==(++$seen{$_})%2, "abccabbcabc" =~ /./sg;' c a b b c