use Data::Dumper;
my $test = "xx556xxyyy";
my @matches ;
push @matches, $1 while ($test =~ /((.)\2*)/g);
print Dumper(@matches);