my $str = 'xx556xx'; my @x = grep --$|, $str =~ m/((.)\2*)/g; my @y = grep ++$|, $str =~ m/((.)\2*)/g; print join ',', @x; print "\n"; print join ',', @y;