perl -CO -Mutf8 -E 'say map {
                      /\P{Cased}/ ? $_ : $c++ % 2 ? lc : uc
                    } "comme ça" =~ /(\X)/g'