$string = 'aaaaxxxaxaxaaaaaaaxxxxxxxxxxaax';
@regions = map { [substr($_, 0, 1), length $_] } $string =~ /(a+|x+)/g;