even simpler:

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

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

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

  p