sub catch_exons2 {
    my @res;
    push @res, [substr($1, 0, 1), length $1] while $_[0] =~ /(a+|x+)/g;
    return @res;
}