my $str = 'xx556xx';
my $tog = 0;
my @x = grep $tog = !$tog, split /(?<=(.))(?!\1)/, $str;
print join ',', @x;