sub seq2 {
    my @x = shift =~ m/((.)\2*)/g;
    map $x[2*$_], 0..@x/2-1;
}