Help for this page

Select Code to Download


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