my $s = s/_*(X+)_*/length($1) . ','/ge;
$s =~ s/,$//;