my @chars = /(.)\1/sg;