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