$r =~ s/(^_+|_+$)//g;

$r =~ s/_+/,/g;

$r =~ s/(X+)/length$1/ge;