my @chars = grep 0==(++$seen{$_})%2, /./sg;