my @list = split m/\x{2063}/ => s{(.)\K(?!\1)}{\x{2063}}gr;